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SCALDA IL JOYSTICK 
E GASATI CON 



IL VERO GIOCO COMINCIA ADESSO 


E 


D 



L e novità sono netl'ana. 

Dal numero di ottobre, infatti, abbiamo pensato di creare, attorno alle 
nostre riviste, nuovo e speriamo sempre più ampio interesse. 

Vediamo come: prima di tutto la rivista avrà 16 pagine in più; pagine che 
avranno carattere giornalistico e quindi non listati, ma artìcoli dì vario 
genere, da leggere per cultura o informazione. 

Tra le varie iniziative vi è la realizzazione di due nuove riviste mensili: 
SuperMSX e Super Apple. Tra voi c’è forse chi occhieggia un sistema più 
evoluto e uno sguardo alle nuove testate J.soft può sempre essere utile. 
Ad ottobre parte anche la campagna abbonamenti, tradizionale ed impor- 
tantissimo evento editoriale per tutte le riviste. 

Gli abbonati alle nostre pubblicazioni hanno sofferto un po' in passato* 
causa un certo disservizio generato da tutta una serie di piccoli problemi, 
che, sommati* hanno provocato ì guai che noi per primi abbiamo lamenta- 
to* 

Le cose da questo punto di vista si stanno normalizzando e siamo in grado 
di garantire fin d'ora, per l'immediato futuro e per quanto in nostro potere, 
un eccellente servizio* poiché la periodicità sarà finalmente rispettata e il 
servizio abbonati diverrà decisamente più efficiente, grazie a nuove proce- 
dure più veloci e più “snelle”. 

Chiediamo per l'ennesima volta scusa agli abbonati, pregandoli di voler 
considerare chiusa una spiacevole parentesi. 

[1 nostro impegno si fa e si farà sempre più concreto* confidando nel 
costante interesse e apprezzamento che finora ci avete dimostrato 
nonostante tutto! 

Pietro Dell'Orco 
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Per collaborare a SUPERCOMM ODORE 


La rivista è interessata ad articoli e programmi riguardanti la lìnea Commodore, dì interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo t nostri consigli si 
accresceranno le probabilità che le vostre buone idee e ì vostri programmi vengano pubblicati. 


1 l'angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data dì spedi* 
zione, luogo e data di nascita. 

rangole superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste, 

3 il titolo dell'articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l'angolo 
superiore destro contenga un'abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed.. ./Brambilla^. 

5 il testo deirarticolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine dì almeno un 
centimetro dovrà essere lasciato su entrambi i 
lari dello scrìtto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm, 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda piu fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

avendo intenzione dì spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi ì iati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell'autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti dì programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x )\ SPC( x 
)'\ piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l'istruzione 
“FORI - !T05:PRINT :NEXT f \ e motto più in- 
terpretabile dì 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all'interno dell’ar- 
tìcolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN, LIST, RND, PRINT eccj. Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

U gli artìcoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine dì una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

Il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alta complessità e 
alHnteresse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300.000} Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori* 

La Redazione 
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La piccola guida 
del principiante 


Che cote un programma? 

|] solo computer non può compiere alcuna operazione. 

Un computer possiede potenzialità, ma, come una macchina 
senza benzina, senza un programma non può funzionare 
La maggior parte dei programmi pubblicati su SUPER- 
COMMODORE per i computer Commodore sono scritti in 
un linguaggio per calcolatori chiamato BASIC. 11 BASIC è 
facile da imparare ed è disponibile, dì serie, nel VIC 20 e 
nel Commodore 64. 

Programmi BASIC 

Ogni mese SUPERCOMMODORE pubblica programmi sia 
per il VIC 20 che per il C64. Tanto per cominciare, se 
possiedi un VIC 20 copia solo ì programmi scritti per la tua 
macchina, indicati con “versione per VIC 20”. Più tardi, 
quando avrai acquisito esperienza con il BASIC del tuo conv 
puter, potrai cercare di copiare e convertire programmi 
scritti per altri calcolatori. Diversamente dal linguaggio cor* 
rente, che può essere variamente interpretato, il BASIC di 
solito ha un solo modo corretto per indicare qualcosa. 

Ogni lettera, carattere o numero ha il suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
“0” con la lettera “O” oppure il carattere minuscolo *1” 
invece del numero ”1” o ancora il carattere maiuscolo “B” 
con il numero “8”. 

Devi anche inserire tutta la punteggiatura, ì due punti {:) e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere importanti. Per essere sicuro copia 
il listato esattamente come si presenta. 

Le parentesi e I caratteri speciali 

L'eccezione per questa regola di copiatura si presenta quan- 
do incontrerai indicazioni tra parentesi, quali: M {GIÙ| W . 
Ogni cosa compresa tra parentesi è un carattere speciale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alla “Piccola guida per l'input dei program- 
mi' 1 . 

Le istruzioni DATA 

Alcuni programmi contengono una sezione, o delle sezioni, 
di istruzioni DATA. Queste linee di istruzione forniscono le 
informazioni di cui II programma ha bisogno. 

In alcuni casi le istruzioni DAT A costituiscono il programma 
vero * ■'modo, in altri contengono codici grafici. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero in una linea di istruzione DATA è sbagliato, il calco- 
latore potrebbe “piantarsi” o distruggere il programma. La 
tastiera e 11 tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere U controllo devi spegnere lì computer e suc- 
cessivamente riaccenderlo. Ciò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui è sempre necessario 
fare il SA VE dei tuo programma prima di comandare il 
RUN. 

Se il computer si ferma, puoi caricare (LOAD) il programma 
e cercare l'errore. 

A volte, quando i! programma viene “lanciato”, un'Istruzione 
DATA errata può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ) iì contenuto delle istruzioni DATA. 

Coinè conoscere il computer 

Dovresti prendere confidenza con il computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare I programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di “edi- 
ting” della tua macchina Come puoi correggere un errore? 
Puoi sempre ricopiare la linea e in questo caso devi sapere 
come procedere. Sapresti come inserire i caratteri in “inver- 
se”, i caratteri minuscoli e quelli di controllo? 

Tutto dò è spiegato nel manuale del calcolatore. 

Un veloce ripasso 

1) Copia il programma una linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL” 
per correggere gli errori. 

2} Confronta la linea copiata con quella presente nella rivi- 
sta. Puoi controllare finterò programma nel caso in cui 
si presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla “Piccola guida per l'input del programmi” che trovi 
in questa stessa rivista). 

Siamo spiacenti dì non poter rispondere singolarmente alle 
richieste di informazioni circa ] programmi, prodotti o servìzi 
apparsi su SUPERCOMMODORE. 
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OK-LIST 

Versione per 06 di E* Sarcina 

S appiamo tutti quanto sia difficile di- 
gitare correttamente un programma 
(ovviamente, se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORE!). Errori di battitura anche banali 
possono provocare il malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri- 
fare il lavoro. 

Mail punto di forza del calcolatori è che 
essi eccellono nei compiti noiosi e che 
richiedono precisione. Scoprire un erro- 
re nella battitura dì un listato è appunto 
un compito noioso, quindi perché non 
sfruttare il tuo computer per controllare 
Mutali da te digitati? 

È proprio questo lo scopo di OK-LIST, 
il programma che ti permetterà di ri- 
sparmiare tempo e fatica. Annidato ah 
l'interno del tuo computer, OK LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermò ogni volta che premi il ta- 
sto RETURN. Un numero corrisponden- 
te nel listato del programma pubblicato 
ti permette il confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma in lin- 
guaggio macchina residente nei buffer 
del registratore. Esso rimane in tale zo- 
na finché spegni il computer o usi l'un ita 
a cassette. 

Come digitare OK-LIST 

Vi sono due versioni di OK-LIST, una 
per C64 e VlC 20 e l’altra per C16 e 
Plus/4. Digita la versione adatta al tuo 


OK-LIST 

versione per Vie 26 e C64 

10 FRI NT" {CLR} ATTENDERE PRÈGO.. 

Il 

1 1 FOR I = 8 86TO 1 0 7 8 i READ A : CK=CK+A 
: POKEl , A: NEXT 

12 IPCK01471 4THENPRlNT"{GIir }Z 
RRORE NELLE ISTRUZIONI DATA" 
: END 

13 SYS 8 8(5 ; FRI NT 11 {CLR) ( 2 GIU'J 
OK-LIST ATTIVATO . ” i NEW 

14 DATAI 73,034,003,201 ,150,208 

15 DATA0O1 ,096,147 ,1 51,00 3,173 

16 D AT A0 35,003,141 , 1 52 , 00 3 , 1 6 9 


Ì7 DATAI 50,141 ,034,003,169,00 3 

18 DATAI 41 ,035,003,169, 000 ,13 3 

19 DATA006,096,032,232,235,133 


20 DATA003, 1 34,004,132,005,008 

21 DATA201 ,01 3,240,01 7,201 ,032 


22 DATA240, 005, 024, 101 ,006,133 

23 DATA006 r 165,003, 166,004,164 

24 DATAQ0S, 040, 096, 169, 013,032 

25 DATA IVO, 255, 165, 205,141 ,251 


computer, facendo attenzione a non 
commettere errori (per fortuna il listato 
e molto breve!). Dopo aver finito salvalo 
su disco o nastro, per Io meno un paio 
di volte* prima di mandarlo in esecuzio 
ne con il comando RUN, perché il pro- 
gramma BASIC, dopo aver memorizza- 
to la routine in linguaggio macchina (le 
istruzioni DATA)* sì autocancella. 
Come si «se OK-LIST 
A questo punto puoi iniziare a battere 
il tuo primo listato "a prova di errore". 
Se non hai OK-LIST in memoria, carica- 
lo e attivalo con RUN, 

Digita quindi la prima linea di program- 
ma: come puoi vedere* in fondo ad essa 
c'è la parola “:rem” seguita da un nu- 
mero, che si chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi U tasto RE- 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
^rem'h Se i due numeri sono uguali* 
vuoi dire che la linea è stata digitata 
correttamente* altrimenti controllala* 
perché evidentemente ha] commesso 
un errore. Facile* no? 

OK-LIST non è pignolo per quel che 
riguarda gli spazi bianchi, dato che non 
fa caso alla loro presenza. Ciò torna a 
tuo vantaggio* dal momento che la spa 
zi atura non è, in genere, importante. 
Ma all'Interno delle istruzioni PRINT gli 
spazi spesso si rivelano necessari* quin- 
di presta attenzione quando digiti que- 
sto tipo di istruzione. Un’altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi {ad esempio ? 
per PRINT) Il checksum visualizzato 
non coinciderà con quello presente sui 
listato. Ciò è tuttavìa risolvibile* pre- 


26 DATA003, 206,251 ,003,169,000 

27 DATAI 33,207,169,01 9,032,210 


28 DATA255, 169, 018, 032, 210,255 

29 DATAI 69, 058, 032,21 0,255, 166 

30 DATA006, 169,000,1 33,006,1 72 

31 DATAI 51 ,003,192,232,208, 006 

32 DATA032, 095, 164, 076,235, 00 3 

33 DATA032, 007,208, 169,032,032 

34 DATA21 0,255 ,032, 2 10. 2 55,1 73 

35 DATA251 ,003,1 33,205,076, 1 73 

36 DATA003 

OK-LIST 

versione per PÌtts/4 

10 PRINT'MCLR} ATTENDERE PREGO . * 
1 1 PORI “886T01 01 S:READA:CK»CK+A 


: POKEl r ArNEXT 

12 IF CK017539 THEN PRINT" 

(GltTlERRORE NELLE iSTRtmON 
I DATA": END 


13 SYS886: PRINT" fCLRH 2 GIU 1 } 
OK-LIST ATTIVATO." : NEW 


mende il tasto RETURN su una linea 
dopo averla listata: le abbreviazioni sa- 
ranno ricodificate nella loro forma inte- 
ra e quindi OK-LIST sarà in grado di 
svolgere perfettamente la sua funzione. 
In questo modo, inoltre* avrai la possibi- 
lità di controllare interi gruppi df righe 
in una volta sola. 

Ovviamente* nessuno è perfetto, ed an- 
che OK-LIST ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di * anagrammi are" durante 
la digitazione una linea (per esempio 
invece di battere 10 PRINT“VAIT digiti 
per errore 10 PRlNT ft VJA")* OK LIST 
non se ne accorgerebbe. Inoltre la pre- 
senza del carattere SHIFT-SPAZIO mo 
difica il numero di checksum rispetto al 
carattere SPAZIO normale* anche se la 
differenza non risulta visìbile sul video 
del tuo computer 

Se intendi sospendere lì lavoro di digita- 
zione — o io hai terminato — puoi salva- 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE su VlC 20 e C64, 
oppure RUN /STOP e RESET su CI 6 
e Plus/4 prima dì dare il comando SA- 
VE. ÀI momento di riprendere il lavoro* 
tuttavia, non potrai più utilizzare OK 
LIST* dal momento che qualsiasi opera- 
zione su cassetta lo distrugge. 

Se vuoi disabilitare OK-LIST in qualun 
que momento, senza perdere il tuo pro- 
gramma in memoria, premi RUN/ 
STOP e RESTORE su VlC 20 c C64 
oppure RUN/STOP e RESET su C16 
e Plus/4. Per riattivarlo, batti: 


SYS 886 
Buon lavoro! 


14 DATAI 73,036, 00 3,201 ,150,208 

1 5 DATAGQ1 ,096,141 ,1 51 ,00 3, 173 

16 DATAG37, QQ3,UÌ ,1 52,003,169 

17 DATAI 50, 141 ,036,003, 169,003 


18 DATAI 41 ,037,003,169,000, 1 33 

19 DATA2 54, 096, 032, 087, 241 ,133 

20 DATASSI ,134,252,132,253,008 

21 DATA201 ,01 3,240,01 7,201 ,032 

22 D ATA2 4 0 , 00 5,024,101 ,254,1 31 


23 DATA254, 165, 251 ,166,252,164 

24 DATA2S3, 040, 096,1 69,01 3,032 
2 5 DATA21 0,255, 165,214, MI ,251 

26 DATA003, 206, 251 ,003,169,000 

27 DATAI 33,216,1 69,01 9,032,210 


28 DATA255, 169,01 8,032, 21 0,255 

29 DATAI 69,058,0 32,210,255,1 66 

30 DATA254, 169,000,1 33,254, 1 72 


31 DATAI 51 ,003,192,087,208,006 

32 DATA032, 205, 189, 076,235, 003 


33 DATA032,205, 221 ,169,032,032 

34 DATA210, 255,032, 210, 255, 173 

35 DATA251 ,003,133,214,076,1 73 

36 DATA 00 3 
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Solidarietà e comprensione 

Spett. Redazione. 

sono un de te n uto dell Asinara, al quale 
è stato concesso raso di un C64 a titolo 
di studio per l'apprendimento del BA 
SIC. Penso di essere a buon punto, gra 
zie soprattutto alle molte puòb/icazioni 
che truffano ri C64 in modo semplice , 
Acquisto parecchie riviste dì informatica, 
e solo ultimamente ho iniziato a leggere 
riuistc della J.soft , quoti PAPERSOFT e 
SUPERCOMMODORE , che trovo molto 
piacevoli ed esaurienti. Ma non è per que 
sto die ho deciso dì scrivervi, quanto per 
segnalare due nostri lettori che. per la loro 
generosità, mi hanno commosso, con 
vincendomi che una volta pagato il mio 
debito con la giustizia froderò altre per 
sone come loro che non avranno pregia 
dizi per il mio passato e spero vorranno 
offrirmi la stessa amicizia dimostratamj 
dai nostri lettori. 

Ebbene , volendo acquistare programmi 
per i ! C64. ho risposto a parecchie inser- 
zioni pubblicate dal vostro mensile Ho 
avuto possibilità quindi di acquistare a 
buon prezzo buoni programmi e due vo- 
Stri lettore appunto Luciano Ricci di Mas 
sa e Marco Romani dì Roma, con tanta 
generosità e gentilezza mi hanno messo 
a disposizione gratuitamente f loro prò 
grammi, che sono veramente tanti , ac 
compagnando i/ tutto con parole di soli- 
darietà ed amicìzia che veramente mi 
hanno commosso, 

Debbo quindi ringraziare anche la nostra 
rivista che mi ha permesso di acquisire 
due nuovi amici e , cosa più importante * 
mi ha fatto comprendere che malgrado 
tutto non bisogna mai disperare , e biso 
grra invece avere fiducia nelle persone 
che ci circondano. 

Fausto Marcia 


Un bastimento carico di poke 

Nel " Protettore di programmi ' pubblica- 
to sul numero 3 t si accenna ad alcune 


POKE per disabilitare RUN/STOP + 
RESTORE e per disabilitare f/ comando 
LIST . ma non tengono fomiti i valori 
delle stesse. Potete provvedere? 

Piero Marangoni 

R, Ecco, per accontentare tutti i lettori 
che desiderano proteggere i propri prò* 
grammi, un elenco di locazioni interes- 
santi per il C64, il VI C 20 e il C16-Plu$/ 
4: 



0*4 

VK a* 

016- 





«•*/« 


USt 

775.19* 

rrsjm 

774.187 

rtub 

LIST 

77U67 

nUM 

mi IO 

ditali 

SAVT 

819.246 

«1873 

816.136 

nab 

SAVE 

819.245 

«18.113 

114.164 

dm-h 

LOAD 

814.157 

«14.103 

814.239 

F«db 

LO AD 

Slfaltó 

«16.73 

«14.74 

dewb. 

RUN/STOP 

808.239 

808.100 

806,103 

rifth- 

RUN/STOP 

808 237 

■808. 112 

HH6.101 

d«t*b 

RESTORE 

792.183 

792.7 


rub 

RESTORE 

792.71 

792.173 

* 

drM-h fa 

649_0 

649.0 

1343,0 

tufo fa Ifttiwrji 

wa.io 

649.10 

1343.10 

drHb npflmciM 
tu tulli i latti 

450,64 

450,64 

1344.61 

TL*b flJWllfltjft* 

650U2S 

650.128 

1344.128 

tu > 

i fatti 




fub i ip# tifino* 

650.0 

650,0 

1344.0 

tu SPAZIO, DEL. CURS 

pulita f fallici 

198,0 

19B.G 

239.0 

VCÙXlfa 

fu) tei* 

S&325X 

371S9.X 

* 

I» 255 J, 

(fav«.bc* 




«iinnj i 
LIST 

ét faw* nti 

22,35 

205 

22,35 

rut ngfWJi a Imt 

2 2 . 2 $ 

22,25 

22.25 


Si noti che se si esegue la POKE di 
disabilitazione della tastiera in modo di- 
retto, non si sarà più in grado di inserire 
in seguito la POKE di riabilitazione (es- 
sendo appunto disabilitata la tastiera); 
RUN/STOP+RESTGRE funzionerà an- 
cora comunque, anche se è stato disabi- 
litato, e ripristinerà il funzionamento 
della tastiera. Inoltre, accadono cose 



strane, se si esegue la POKE22,35 per 
disabilitare la stampa dei numeri di li 
nea. Ad esempio, il computer non stam- 
perà più stringhe racchiuse tra virgole!» 
te (es: PRlN*PCIAO\ in modo diretto), 
mentre stamperà ancora le variabili di 
stringa. Altre POKE creano effetti colla- 
ferali: ad esempio, se si modifica la velo- 
cità del cursore, il jiffy clock - l'orologio 
interno al computer - si mette anch’es- 
so a correre o a rallentare. 

Ecco infine una interessante serie di 
POKE: se accidentalmente digitate 
NEW e volete recuperare il programma 
in memoria, inserite in modo diretto 
quanto segue. 

Per il C64: 

POKE2050,] : SYS42291 : POKE45, 
PÉ£K(34) : POKE46, PEEK(35) : CLR 

Per il VIC 20: 

PO KE4 098,1 : SYS50483 : PGKE45. 
PEEK{34) : POKE46, PEEK(35) : CLR 

Se avete collegata al VIC 20 un'espan- 
sione di memoria da 8 Kbyte o più, do- 
vete modificare la prima POKE in PO- 
KE4G10.1. 
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La nuova generazione 
di personal computer 



di T. R HalfhìIJ 

trad. ed adalt, 

di M. Cristuib Grilli 


Fino ad ora IBM ed Apple hanno 
dominato incontrastate 11 setto- 
re M ilto" del mercato dei perso- 
nal computer, lasciando il setto- 
re "basso" a Commodore, Atari 
e Sinclair. Dopo il "Consumer 
Electronic Show"* tenutosi a Las 
Vegas in Gennaio, queste diver- 
se fasce di mercato hanno as- 
sunto la tendenza a sovrapporsi 
e poi scomparire, a causa dell'in- 
troduzione di nuove macchine 
dotate di prestazioni fino a ieri 
tipiche della fascia “alta‘% a 
prezzi appartenenti Invece alla 
fascia “basaa I 11 del mercato. 


I computer della Atarì, colosso ameri- 
cano in diretta concorrenza con la 
Commodore, sono in Italia ancora mol- 
to poco diffusi, mentre negli Stati Uniti 
occupano un settore notevole del mer- 
cato. Viste le novità - e soprattutto i 
prezzi - presentate possiamo aspettarci 
una larga diffusione dei prodotti Atari 
anche nel nostro Paese. 

In tutto. Atari ha presentato sei nuovi 
computer e più di una dozzina di perife- 
riche: quattro dei nuovi computer sono 
macchine a otto bit, basate sul 6502, 
compatibili con i precedenti computer 
A tari. Le altre due novità — delle quali 
appunto parleremo - sono potenti com- 
puter a 16/32 bit con un sistema opera 
tivo molto simile a quello dell'Apple 
Macintosh, e costituiscono la serie ST. 

Il cervello di questi computer è il micro- 
processore Motorola 68000, lo stesso 
presente nel Macintosh, Con una fre- 
quenza di clock dì otto megahertz il 


68000 ha una velocità di esecuzione cir- 
ca doppia del chip 8088 a 8/16 bit che 
equipaggia gli IBM PC, POXT e PCjr. 
Gli Atari delia nuova serie ST, il 130$T 
e il 520ST, sono mutualmente compati- 
bili ed offrono molte caratteristiche co- 
muni, tra le quali 192 Kbyte di ROM, 
espandibili a 320 Kbyte tramite una 
cartrìdge, 512 colori diversi, risoluzione 
di 320x200 pixel a 16 colori, 640x200 
pixel a quattro colori e 640x400 pixel 


con un solo colore. Essi sono inoltre do- 
tati di interfaccia parallela Centronics, 
seriale R5-232 standard, interfaccia per 
drive a floppy disk ed hard disk; è pre- 
sente inoltre un'interfaccia MIDI [Musi- 
cal Instruments Digital Interface) per il 
collegamento a tastiere e sintetizzatori 
di suono esterni. Due porte joystick 
[una delle quali è usata per il collega- 
mento del mouse), uscita TV ed RGB, 
chip sonoro a tre voci con forme d'onda 
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Ecco noi tipici ichcrttiti GEM in versione MS-DOS: le versione 
ST è virine Imeni* Identici. SI vedono II mena e scorrimento, le 
Icone e le finestre e lovnppoililone. 


ed inviluppo variabili, tastiera a 94 tasti 
con tastierino numerico separato e dieci 
spedali tasti funzione. 

Il loro sistema operativo e staro denomi- 
nato TOS (Tramiel Operating System), 
mentre le routine ROM che presiedono 
alla parte grafica sono state denomina- 
te GEM (Graphic Environment Mana- 
ger): il GEM è un'interfaccia di sistema 
operativo "tipo Macintosh”, sviluppata 
inizialmente per computer sotto MS- 
DOS, ed il cui brevetto è stato ceduto 
alla Alari dalla Digital Research, Il OEM 
consente, proprio come nel Macintosh, 
di lavorare con icone, menu a scorri- 
mento, finestre e un puntatore control- 
lato dal mouse. Comprende inoltre un 
orologio in tempo reale, grafica vette riz- 
zata in alta risoluzione ed animazioni sul 
tipo degli Sprite. 

Le uniche differenze tra TAtari 130ST 
e il 520ST stanno nell’ammontare di 
RAM disponibile e nel prezzo. Il 130ST 
dispone di 128 Kbyte di RAM e verrà 
a costare - per quanto si sappia al mo- 
mento della stesura di questo articolo, 
in Aprile - intorno alle ot toce nt orni la 
lire, mentre il 52QST, con 512 Kbyte 
di RAM, dovrebbe costare intorno al 
milione e centomila lire. 

Se pensate forse che questi prezzi non 
siano credibili, viste le prestazioni offer- 
te, sentite ora dò che riguarda le perife 
ri che: per la serie ST è stato annunciato 
un drive per microfloppy a 3 pollici e 
mezzo, che verrà a costare intorno alle 
- udite, udite - duecentomila lire. Que- 
sto drive usa gli stessi dischi in standard 
Sony usati dal Macintosh: i dischi a fac- 
cia singola possono contenere fino a 
250 Kbyte, mentre la versione a doppia 
faccia (dischetti dal costo leggermente 
più elevato) fino a mezzo megabyte. An- 
cora piu incredibile è l'annunciato hard 
disk per la stessa serie ST {e, con il 
marchio Atarisoft, anche per altri com- 
puter), che dovrebbe consistere in un 
disco rigido da 15 megabyte con il costo 
di circa ottocentomila lire. 

L'interfaccia per hard disk implementa 
fa sulla serie ST è in grado di trasferire 
dati a 1.33 megabyte al secondo, circa 
100 volte piu velocemente di un tipico 
hard disk per Macintosh. Ciò significa 
che è possibile riempire tutta la RAM 
dì 512 Kbyte del 520ST, con un prò 
gramma o con dei dati, in meno dì mez- 
zo secondo.., 

Non solo i computer della serie ST sono 
molto più potenti degli home computer 
attualmente esistenti, ma addirittura su- 
perano potenzialmente le capacità della 
maggior parte del computer professio- 
nali a 16 bit oggi sul mercato. Promet- 
tendo l'equivalente di un “grosso Mae" 
a colori, e a un terzo del suo prezzo, 
P Atari $1 prepara a ridef Inire P intero 
mercato degli home e dei personal. 
Con questa “valanga" di grosse novità 
Atari in arrivo, la Commodore si prepa- 
ra a contrattaccare con alcuni nuovi 
prodotti. 

Ancora scottata dall'insuccesso del 
P3us/4, la Commodore ha finalmente 


pensato bene di rendere compatìbili con 
H C64 i propri nuovi “desktop compu- 
ter”. 

Il nuovo Commodore 128 contiene in- 
fatti quasi tre diversi computer in un 
unico chassis: contiene un normale 
C64, con microprocessore 6510, chip 
video VICI! e chip sonoro S1D, e 64 
Kbyte dì RAM; contiene poi un compu- 
ter con microprocessore 8502 (compa- 
tibile 6502/6510), 128 Kbyte di RAM 
e video a 80/40 colonne, ed infine con- 
tiene un computer con microprocessore 
Z80A. 128 Kbyte di RAM e schermo a 
80 colonne, compatibile con il software 
scritto per il sistema operativo CP/M. 
Il C128 è espandibile fino a 512 Kbyte, 
per incrementi successivi di 128 Kbyte, 
anche se la memoria aggiuntiva può es- 
sere usata solo come un disco RAM e 
non come memoria contìnua per pro- 
grammi. Da alcune indicazioni per ora 
disponibili sembra che il 028 potrà co- 
stare intorno alle sette-ottocentomila li- 
re. 

Ovviamente, il CI 28 è molto dì più che 
una semplice versione a 128 Kbyte del 
C64 {che era stata per altro preceden- 
temente anticipata dalla Commodore). 
Appena acceso, il computer si regola 
automaticamente in modo 128 Kbyte 
con microprocessore 8502: è possibile 
selezionare il video tra quaranta e ot- 
tanta colonne, ma grafica e Sprite sono 
disponibili solo nel modo a quaranta co- 
lonne. 

Per passare sotto CP/M occorre carica- 
re il sistema operativo da un disco che 
viene fornito insieme al computer, men- 
tre per passare in modo C64 basta digi- 
tare “GG 64". Lo schermo scompare 
per qualche secondo, e viene quindi vi 
sua lizzato il classico messaggio genera- 


to dal C64 appena acceso. 

Una volta entrati in modo C64 non c’è 
maniera dì passare agli altri modi, se 
non spegnendo e riaccendendo la mac- 
china, E questo, se si vuole, lo scotto 
da pagare per avere la compatibilità to- 
tale con il C64: l'implementazione di un 
comando tipo ll GO 128" avrebbe infatti 
richiesto una modifica al sistema opera- 
tivo, Per la stessa ragione il video a 
ottanta colonne non è disponibile nel 
modo 064, 

Il CI 28 dispone di due diversi linguaggi 
di programmazione: il solito BASIC 2.0 
del C64 ed il BASIC 7.0 nel modo a 
128 Kbyte, Quest'ultimo linguaggio è il 
più potente BASIC Commodore fino ad 
ora realizzato, con gli stessi comandi 
per la gestione del dHve del BASIC 4.0 
implementato sul CSM 8032, unita- 
mente a comandi per grafica e suono 
sul tipo di quelli della cartuccia “Super 
Expander 64”. 

In modo CP/M è disponibile una gran 
quantità di linguaggi orientati all'uso del 
drive, compresi vari compilatori ed as- 
semblatori. 

Altre caratteristiche del Cl 28 sono la 
tastiera a 92 tasti con tastiermo numeri- 
co separato, due set dì tasti cursore, 
quattro tasti funzione speciali e nuovi 
tasti etichettati ALT, ESC, TAB, CAPS 
LOCK, HELP, LINE FEED, 40/80 DI- 
SPLAY, NO SCROLL. 

Sono presenti uscite sia TV che RGB 
con audio, sedici colori, monitor di lin- 
guaggio macchina e le stesse porte di 
comunicazione con l'esterno già imple- 
mentate sul C64. 

Il CI 28 non è certamente tanto potente 
ed interessante quanto i nuovi Atari ST, 
ma nasce dalla stessa filosofia: offre un 
computer "tutto in uno", che permette 
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una gran varietà dì applicazioni casalin 
ghe, personali e commerciali a un 
prezzo ragionevole. 

Con la possibilità di diventare un C64, 
il 028 viene a disporre di una grossa 
quantità di software didattico, di giochi 
e di applicazioni di piccola gestione 
commerciate. In modo 128 Kbyte con 
il BASIC 7.0 diventa molto più facile da 
programmare di un C64. In modo CP/ 
M sono infine disponibili una gran quan- 
tità di programmi applicativi e “seri". 
Benché il CP/M sia ormai stato supera’ 
to in diffusione dal MS-DOS delHBM 


le LCD. con un display a cristalli liquidi 
di 80 colonne per 16 righe, dalla veloci- 
tà di visualizzazione elevatissima. In po- 
sizione chiusa il video costituisce un co- 
perchio di protezione della tastiera a 72 
tasti. Le caratteristiche di questo com- 
puter comprendono un microprocesso- 
re a otto bit 65002, 32 Kbyte di RAM 
e 96 Kbyte di ROM, porta seriale stan 
dard RS-232, porta parallela standard 
Centronics, interfaccia per lettore di co- 
dice a barre, porta seriale compatibile 
con le periferiche standard del C64 e il 
drive 1571 , porta di espansione per la 



processor, blocco per appunti, foglio 
elettronico, gestione file, emulatore di 
terminale, calcolatrice, archivio, e rubri- 
ca indirizzi. 

Abbastanza piccolo per poter essere 
contenuto in una borsa, l’LCD pesa po- 
co meno di due chili e trae alimentarlo- 
ne da quattro batterie oppure da una 
sorgente esterna, mantenendo 11 conte- 
nuto delia RAM anche quando il com 
puter è spento. 

Il suo prezzo stimato è di circa un milio- 
ne e duecentomila lire, molto compelili 
vo rispetto agli altri portatili già su! tner 
cato. 

La “grossa" novità Commodore, co- 
munque, che pare venga tenuta nel cas- 
setto per essere presentata verso la fine 
dell'anno, è il cosiddetto - o meglio la 
cosiddetta - “Amiga Lorraine" 

Un prototipo di questo avanzato com- 
puter era stato mostrato al Consumer 
Electronic Show dello scorso anno, 
quando l'Amiga era ancora una società 
indipendente in cerca di finanziatori. 
Avendola ora assorbita, la Commodore 
ha acquistato quindi i diritti di produzio- 
ne del Lorraine. Esso è molto simile, 
come potenza, alla serie $T delLAtari 
- usa lo stesso microprocessore -, ma 
rispetto a questa potrà offrire molte ca- 
ratteristiche aggiuntive, quali sintetizza- 
tore di voce, grafica e suono ancóra più 
perfezionati ed una grande espandibili- 
tà. 

La Commodore ha confermato che que- 
sto “supermlcro" è in via di completa- 
mento, e dovrebbe essere commercla- 



L” Atari 520ST: microprocessore Motorola 61000, 512 colori, 
sistema operativo "tipo Macintosh ", 512 Kbyte di RAM, ad un 
prezzo incredibile. Il 130ST è fan zi oasi mente ed esteticamente 
Identico, ma dispone di "solo* 128 Kbyte di RAM. 


f 



Il Commodore LCD è un portatile con schermo a cristalli liquidi 
80x16, 52 Kbyte di RAM, modem interno e otto programmi su ROM. 


PC, con tutta la schiera dei PC compati- 
bili, rimane pur sempre adeguato per 
impieghi di piccola gestione aziendale. 
Insieme al CI 28 nasce una serie di nuo- 
ve periferiche, tra cui il nuovo disk drive 
1571. Trovandosi in modo C64, il 1571 
si comporta esattamente come il “soli- 
to" 1541, immagazzinando 140 Kbyte 
su ogni disco da 5 pollici e un quarto, 
con una velocità di trasferimento dati 
molto bassa Passando tuttavia in modo 
128 Kbyte, il 1571 diventa molto più 
veloce ed opera anche su doppia faccia, 
permettendo una capacità di 350 Kbyte 
per disco. In modo CP/M, infine, il 
1571 diventa ancora più veloce (circa 
12 volte più veloce del 1541) ed au- 
menta la capacità di immagazzinamen- 
to dati a 410 Kbyte per disco. Inoltre, 
in modo CP/M il 1571 è in grado di 
leggere dischi tn formato CP/M IBM 
34. compresi dischi Os berne e Kaypro. 
Come se dò non bastasse, il 1571 è 
collegabile direttamente al C64, C16 e 
Plus/4, anche se in questo modo funzio- 
na unicamente come un normale 1541. 
Per il CI 28 sono stati annunciati anche 
due nuovi monitor: il 1901 monocroma 
tico, dedicato ad applicazioni commer- 
ciali a 80 colonne, e il 1902 a colori, 
che riesce a visualizzare le ottanta co- 
lonne in un formato leggibile a colori. 
Al momento non sono ancora stati an- 
nunciali i prezzi di queste periferiche. 
Un altra novità Commodore è i! porta ti- 


RAM, modem a 300 baud con possibili- 
tà di chiamata e risposta automatica, 
BASIC 3.6, monitor di linguaggio mac- 
china, otto programmi residenti su 
ROM. Questi ultimi consistono in word 


lizzato a fine anno ad un prezzo intorno 
ai mille dollari (circa due milioni di lire). 
Appiè ed IBM stanno per il momento a 
guardare, e non senza qualche preoccu- 
pazione. 
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MLX per VIC 20 
e C64 


dì C. Brancoli 
trad, e adatt. 

di M. Cristnlb Grilli 

(versione 2.0 per C64) e f. Steli» 


M LX è un programma che permette 
di inserire listati in linguaggio mac- 
china esenti in modo assoluto da errori e 
senza la perdita di tempo del dover batte- 
re e controllare lunghe sequenze di istru- 
zioni DATA. 

Molti del nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sìa caricato in memoria 
ed eseguito prima della battitura dei lista- 
to. 

MLX vi chiederà 1 indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Questi 
valori sono sempre indicati nelf articolo 
che accompagno II listato. MLX vi segna 
la automaticamente gli errori dì battitura 
MENTRE STATE DIGITANDO IL LI- 
STATO e vi chiede di re inserire la lìnea 
errata. L'ultimo numero battuto di ogni 
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linea rappresenta il check sum e viene vi- 
sualizzato in re verse. 

Sono inoltre disponibili altri comandi, quali: 
SH1FT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che volete 
battere ed è utile nel caso si inseriscano 
1 listati In più parti. 

SHIFT-D display: lista ì dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco un 
file In formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 
LOAD “nome del file", 1,1 per il registra- 
tore, oppure LOAD “nome del file”»8*l 
per l'unità a dischi, salvo diverse ìndlea- 
aloni date negli articoli corrispondenti ai 
vari programmi. Il programma sarà gene- 
ralmente mandato in esecuzione con una 
SYS (Indirizzo di partenza). 


La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di- 
versi ritocchi e miglioramenti* fino alla 
versione 2.0 qui presentata. 

È stato In primo luogo modificato li colore 
di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento dei program- 
mi; è cambiata la forma del cursore e* 
cosa più importante, è stato aggiunto un 
tastierino numerico per gli utenti che si 
trovano più a loro agio con una diversa 
disposizione del tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ride finiti alcuni tasti alfabetici, 
in modo da generare ugualmente del nu- 
meri. I tasti ridefiniti sono i seguenti: 

UIO 789 

HJ KL diventano 0 4 5 6 

M , . 12 3 

Le persone abituate ad usare tali tastlerf- 
ni accresceranno senz'altro, in brevissimo 
tempo, la velocità di battitura dei pro- 
grammi in linguaggio macchina. 


100 PRINT” (CLR ) { PUR } w ;CHR$ ( 1 42 ) ;CHR${8) ; 

: rem 181 

101 POKE78S,194;REM DISABILITA RUN/STOP 

:rem 144 

110 PRINT”{RVS}{ } 4 SPAZI }" :rem 117 

T20 PRI NT" { RVS } {DES }{OFF} { <*> 1 £{ RVS } 

(DBS) (DES){ 2 SPAZI }{<*>) (OPF) [<*>] 

£ ( RVS } £ ( RVS } rl ;rem 191 

130 PRINT m TrVS) (DES) (<G>]fDES) 

{ 2 DES) {OFF}£{RVS }£[<*>) {OFF) [<*>] 
{RVS} (OFF)" :rem 122 

140 PRINT" f RVS } { 14 SPAZI} 11 : rem 120 

200 PRI NT" { 2 GIU 1 ) {PUR} {BLKjUM PROGRAMMA 
PER L* I N-TRODUZIONE { 2 SPAZI )DI ROUT 
INEIN LINGUAGGIO MACCHINA’* ; t rem 202 

205 PRINT” A PROVA DI ERRORE { 5 GIU f J" 

;rem 226 

210 PRINT” {BLK}{ 4 SU } INDIRIZZO DI PARTEN 
ZA”: INPUTS:F=1 -F:C$=CHR$ (31 +!1 9*F) 

:rem 52 

220 I FS< 2 5 60R5 >327 6 7THENGQ5U B 3 0 0 0 : GOTO 2 1 0 

: rem 2 

225 PRINT; PRINT: PRINT: PRINT :rem 123 

230 PRINT" {BLK) { 3 SU ) INDIRIZZO CONCLUSIV 
O" : I N RUTE : F - 1 -F:C$ =C HR$ (31+119*F) 

trem 170 

240 I FE< 2 560RE> 32 767THENGOSUB3Q00 : G0T02 30 

:rem 234 

250 IFE<STHENPRINTC$ ; ” fRVS } INDIR! ZZO GONG 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU 1 }”: GOSUBl 000 ; GOTO 2 3 0 ; rem 27 
260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR}" ?CHRS O 4) :AD=S : rem 56 
310 PRINTRIGHTS ("0QOQ"+MID$ (STRS (AD) , 2) ,5 
:FORJ=lTQ6 : rem 234 

320 GOSUB5 70 : IFN-- 1 THENJ : GOTO 320 

trem 228 

390 IFN*-21!THEN71 0 :rem 62 

400 IFN = -204THEN790 : rem 64 

410 I FN « - 2 0 6THENPR I NT : PRINT” (GIU * } XNSERIS 
CI UN NUOVO { 4 SPAZI) INDIRIZZO” ?: INPU 
TZZ : rem 42 


4 1 5 IFN=- 206THENIFZZ<SORZZ>ETHEN PRINT” 
-RVS} ESCE DAL CAMPO Di VA- ” :rem 150 

416 IFN=-^06THENIFZZ<SORZZ>ETH EN PRINT” 
{RVS) LORI INDICATO” : GOSUBl 000: GOTO 41 0 

: rem 105 

417 I FN * - 2 0 6THENAD E Z Z : PR I NT : GOTO 3 1 0 




: rem 

238 

4 20 

IFNO-1 96THEN48Q 

: rem 

1 33 

4 30 

PRI NT : INPUT” LI STATO : DA 

";F: PRINT, " 



{ 2 SIN } A" ; : I NPUTT 

: rem 

29 

440 

I F F< SORF >EORT< SORT>ETHENPRI NT" MI N IMO" 


; S; M (SIN } t MASSIMO" ; E : 

GOTO430 




: rem 

36 

4 50 

FORI FTOTSTE P 6 : PRINT : PR I NTR I GHTS ( 

”000 


0” IDS (STR$ (I) ,2) ,5) ; 

: rem 

30 

455 

FORK = OT05:N=PEEK U+K) : 

I FK = 3TH EN PR I NTS 


PCOO) ; 

:rem 

34 

4 57 

PR I NTR I GHTS ( " 00” +MIDS (STRS (N) ,2) , 

3) r 


II * 
t r 

: rem 

157 

460 

GETA$ : IFA$> ,m, THENPRINT 

: PRI NT : GOTO 310 



: rem 

25 

470 

NEXTK; PRINTCHRS (20) ; :NEXTI ; PRINT: PRIN 


TiGOTOil 0 

: rem 

50 

480 

I FN< 0TH EN PRI NT : GOTO 3 1 0 

treni 

168 

490 

A (J) =N ; NEXTJ 

: rem 

199 


500 CKSUM^AD" INT ( AD/2 56 ) * 256 : FORI ■ 1 TOG sCK 
SU M« (CKSUM+A ( I ) ) AND2 55 ; NEXT :rem 200 
51 0 PRINTCHRS (1 8) ; : GOSUB570 ; PRINTCHRS ( 2 0 ) 




: rem 

234 

515 

IFN*CKSUMTHEN530 

: rem 

255 

520 

PRINT: PRI NT" LA RIGA 

E* STATA INSE- 

■RIT 


A IN MANIERA ERRATA” 

: rem 

39 

525 

PRI NT” RI-I NSERI RLA” : 

PRI NT ; GOSU B 1 0 00 : G 


OTO 310 

: rem 

167 

530 

GOSUB200Q 

; rem 

218 

540 

FORI **ì TOG : POKEAD+I-1 

,A £1) : NEXT 




: rem 

80 

550 

AD a AD +6; IFAD<ETHEN31 0 : rem 

212 

560 

GOTO 71 0 

: rem 

1 08 

570 

N=0: Z=0 

* : rem 

88 
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58 0 

PRINT" [<+>)"; 

: rem 

79 

581 

GETAS :IFA$=" "THEN581 

: rem 

95 

58 5 

PRINTCHR$ (20) ; : A=ASC{A$) : I FA 

, = 1 30RA=4 4 


ORA-32THEN670 

: rem 

229 

590 

I FA > 1 2 8 THENN* - A : RETURN 

: r em 

1 37 

600 

IFAO2QTHEN630 

: rem 

10 

610 

GOSUB690: 1 FI = 1 ANDT= 4 4THENN = - 

1 :PRINT" 


{SIN} {SIN}" ; : GOTO 690 

: rem 

172 

620 

GOTO 570 

: rem 

109 

630 

IFA< 4 BORA>57THEN 580 

: rem 

105 

640 

PRINTAS; ;N=N*1 O+A-48 

rrem 

1 06 

650 

IFN>25 5THENA = 20 : GOSUBl 000 1 GOTO 6 O 0 




: rem 

229 

660 

Z = Z+1 : 1 FZ< 3THEN580 

: rem 

71 

670 

I F2= 0TH ENGOSU B 1 0 0 0 : GOTO 57 0 

:rem 

114 

630 

PRINT” , ” ; : RETURN 

;rem 

240 

690 

S4=PEEK (209) +256+ PEEK {210) +PEEK (211 ) 



:rem 

149 

692 

FORICI T03: T=PEEK £S%-I) 

trem 

68 

695 

I FT< > 4 4 ANDT< > 5 8 TH EN PO K ES % - 1 , 

32 : NEXT 



: rem 

2 05 

700 

PRINTLEFT$ (" { 3 SIN}'M-l>f! 

RETURN 



: rem 

7 

710 

PRINT" {CLR} {RVS}*** SAVE *** 




{ 3 GIU* }" 

: rem 

236 

720 

INPUT" {GIU* ) NOME DEL FILE"; 

F$ 




: rem 

199 


730 FRI NT: FRI NT" { 2 GIU 1 }{ RVS }N (OFF ) ASTRO 
0 { RVS I D 1 QF F } I SCO : (N/D) " :rem 128 

740 GETAS: IFA$0"N"ANDA$< >"D”THEN74G 

irei 30 

750 DV=1 -7* (A$="D"} : IFD V=0THENFS=" 0 : " +FS 

:rem 158 

760 T$=F$ : ZK=PEEK £53) + 2 56*PEEK ( 54 ) -LEK (T$ 
) :POKE782 f ZK/256 :rem 3 

762 POKE761 , ZK-PEEK (782) *256: POKE780,LEN ( 

T$>:SYS65469 item 109 

763 POKE780 , 1 :POKE781 r DV: POKE782, 1 :SYS654 

66 ttetù 69 

76 5 POKE254, S/256 : POKE2 53, S- PEEK (254) *256 
: POKE780, 253 : rem 12 

766 POKE782 ,E/ 256 : POKE78 1 , E- PEEK (782) * 256 
;SYS 65496 : rem 124 

770 IF ( PEEK (783) AND 1 ) OR (ST AND 191) TH EN 7 8 0 

: rem 1 1 1 


775 PRINT" {GIU * } OPERAZIONE CONCLUSA . 11 : END 

: rem 152 

780 PRINT" {GIU* } ERRORE DI REGI STRAZIO- NB- 



RIPROVA. ":IFDV=lTHEN720 

: rem 

8 

781 

OPEN! 5,8,15: INPUT# 1 5,El $ 

,E2S:PRINTE1$ 


; E2$ : CLOSEl 5 : GOTO720 

: rem 

103 

782 

GOTO720 

: rem 

115 

790 

PRINT” {CLR) (RVS }*** LO AD 

* # * 



f 2 GIU f ) " 

: rem 

212 

800 

INPUT" { 2 GIU 1 } NOME DEL 

FILE" ;F$ 




; rem 

215 


810 PRINT: PRINT" ( 2 GIU * H RVSjN {OFF J ASTRO 
O t RVS } O { OF F } I SCO : ( N/D ) " : rem 127 

820 GETA$ : I FA$< > 41 N" AND AS < > "D" TU EN 8 2 0 

:rcm 28 

830 DV= 1 -7* (AS="D W ) : I FDV» 8THENFS- " 0 : " +F$ 

: rem 1 57 

840 TS = F$: ZK=PEEK ( 53) +256 * PEEK { 54 ) -LEN{T$ 

) :POKE782, ZK/256 :rem 2 

841 POKE781 , ZK-PEEK (782) *256: POKE780,LEN ( 

T$):SYS65469 : rem 107 

845 POKE780 , 1 :POKE781 , DV: POKE78 2 f 1 :SYS654 
6 6 : rem 70 

850 PO KE780,G: SYS 65493 :rcm lì 

860 IF (PEEK {703) ANDl) OR (ST AND 1 9 7) THEN 8 70 

! rem 1 1 1 

865 PRINT" (GIU* ì OPERAZIONE CONCLUSA GOT 
0310 ~ : rem 142 

870 PRINT" {GIU 1 JERRORE DI CARICAMENTO .RI P 
ROVA * {GIU 1 )"1 I FDV-1TUEN80Q : rem 4 3 
8 80 OPEN 15,8, 1 5: INPUT#! 5 , El $ , E 2$ : PRI NTEl $ 
;E2$;CL0SE1 5:GOTO800 : rem 102 

1000 REM CICALINO : rem 231 

1001 POKE36B7B, 1 5:POKE36 874 f ! 90 : rem 206 

1002 FORW = 1 TO 300 : NEXTW : rem 117 

1003 POKE36878 , 0 : POKE368 74 , 0 : RETURN 

: rem 74 

2000 REM CAMPANELLO :rem 130 

2001 FORW*1 STO OSTE P- 1 : POKE36878 , W : POKE368 

76,240: NEXTW : rem 22 

2002 POK E 36876,0: RETURN :rem 119 

3000 PR I NTC $ ; " {RVS } NON IN PAGINA ZERO O 

{ 2 SPAZrlSU ROM ( 4 GIU * ì" : GOTOl 000 

:rem 23 
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100 PRINT" {CLR} {CYN J " ; CHR$ (142) ;CHRS (8) ; : 

POKE532 80 ,0: PO KB 53281 ,0 :rem 71 

101 POKE788, 52: REM DISABILITA RUN/STOP 

; rem 8 9 

110 PRINT" { RVS ) [ 4 0 SPAZI}"; : rem 176 
120 PRINT" { RVS } ( 15 SPAZ I } { DES HOFF } f < * > ] 
“fRVSHDESl { DES } ì 2 SPAZI} [<*>) {OFF} 
T<*>12{rvs}2( RVS} £ 13 SPAZI)”? 

:rem 250 

130 PRINT" { RVS } { 15 SPAZI } (DES) [<N>] f<H> ] 
{DES) ( 2 DES) ( OFF } " ( RVS } ^ [ < * > 3 { OFF } 
[ < * > 1 ( rv s }{ 13 spazi!"; ; rem 220 

140 PRINT" {RVS} { 40 SPAZI}” :rem 120 

200 PRI NT" { 2 GIU 1 } (PUR)EDITOR DI CODICE 
MACCHINA VERSIONE 2. OC 3 GIU 1 )" 

: r em 126 

210 PRINT" {<5>J{ 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZI) :INPUTS:F*1-F:CS=CHR$ ( 
31+Ì19*F) :rem 85 

220 IFS < 2 560R ( S> 4 0 9 6 0 ANDS <491 52>ORS>53247 
THENGOSUB3000 ;GOT02 1 0 :rem 235 

225 PRINT : PRINT : PRINT : rem 180 


230 PRINT" ( < S > 3 { 2 SU) INDIRIZZO CONCLUSI 
VOI 3 SPAZI } " ; : I NPUTE : F = 1 -F :C$ "CHR$ ( 3 
1+11 9*F) :rem 92 

240 IFE< 2560R { E> 4 096 0ANDE< 4 9 1 52)ORE>53247 
THENGOSUB 3 000 : GOTO230 : rem 183 

250 IFE<STHENPRINTC$; "(RVS) INDIRIZZO GONG 
LUS I VO< I NDI RI ZZO INIZIALE" ;rem 200 
255 I FE < S THENGOSUB! 0 0 0 : GOTO 2 30 :rem 119 
260 PRINT: PRINT: PRINT ì rem 179 

300 PRINT" (CLR) ";CHR$ {1 4) : AD s S : POKEV+ 21 ,0 

: r em 225 

31 0 A-l ;PRINTRIGHT$ {"0000"+MID$ (STR$ ( AD) , 
2) ,5) ; :FORJ=AT06 : rem 227 

315 F0SJ-ATO6 : rem 33 

320 GOSUB 570 : 1 FN= - 1 THENJ 31 J+ N : GOTO320 

: rem 228 

390 IFN=-21 1THEN71 0 : rem 62 

400 IFN=-2G4THEN79Q :tem 64 

410 IFN=-206THENPRINT: INPUT" {GIU 1 ) INSERÌ 
RE IL NUOVO INDIRIZZO"; ZZ :rem 13 

414 I FN= - 2 06THEnTfZ2 < SORZ Z > ETHENP R I NT " 

{RVS} ESCE DAL CAMPO DI VALORI INDICAT 
O” ; rem 105 


14 sutcrcom «odore® 


41 5 IFN=-2Q6THENIFZZ<SGRZZ>ETHENGOSUBÌ ODO 
; GOTO 410 : rem 202 

417 IFN = - 20 6THENAD" ZZ :PRINT:GOTQ31 0 

:rera 238 

4 20 IFNO-Ì 96THEN48Q ;rem 1 33 

430 PRI NT 1 I NPUT 11 LISTATO : DA” ; F ; P RI NT" 

{ 9 SPAZI} A"; :INPUTT :rem 183 

440 IFF <SORF>EORT<SORT>ETHENPRINT "MINIMO" 
;S; " MASSIMO" ? E; 1 * ì [<5>] ":GQTO430 

: r em 147 


450 FOR I = FTOTS TE P 6 : P RI NT : PR I NTRI GHT$ ("000 



0 "+mi D$ ( Str$ (I) ,2) ,5) 

:rem 

30 

451 

FORK= 0TO5 : N-PEEK ( I + K) : FRINTRI GHT$ ( 

"00 


'* +MID$ ( STR$ (N) ,2) , 3) j 

:rem 

66 

460 

GETA3 : 1 FA? > Tl "THENPRINT i PRINT 

: GOTO 310 



: rem 

25 

470 

NEXT K : P RI NTCHR? (20) ; : NEXTI : PRI NT : PRIN 


T : GOTO 3 1 0 

: rem 

50 

480 

IFN< 0THENPRINT : GOT03 1 0 

: rem 

1 68 

490 

A ( J) =N : NEXTJ 

: rem 

1 99 

500 

CKSUM” AD- I NT {AD/2 56) * 2 56 : FORI = 1 T06 

:CK 


SUM= (CKSUM+ A { I ) ) AND2 55 : NEXT 

: rem 

200 

51 0 

PRINTCHR? (18); IGOSUB570 :PRINTCHR$ [146 


) t 

: rem 

94 

51 1 

IFN“ - 1 THENA= 6 : GOTO 3 1 5 

: rem 

254 

51 5 

PRINTCHR$ (20) : IFN=CKSUMTHEN530 




: rem 

122 

520 

PRINT : PRI NT" f RED } LA LINEA E' 

STATA 

IN 


SERITA IN MANIERA" 

: rem 

157 

525 

PRI NT "ERRATA. RIPETERE [< 5> 3 " 

; PEI NT 

:GO 


SUBÌ 000 : GOT03 1 0 

: rem 

27 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI = 1 T06 : POKEAD+ I - 1 ,A(I) : NEXT ; POKE54 


2 72,0: POKE 54 273,0 

: rem 

227 

550 

AD= AD+6 : I FADCETHEN3 1 0 

: rem 

21 2 

560 

GOTC71 0 

: rem 

1 08 

570 

N=0 : Z = 0 

: rem 

88 

580 

PRINT" [<~>] 

: rem 

81 

581 

GETA$ : I FA? = " "THEN5 8 1 

: rem 

95 

582 

AV=- ( A$ = H M" ) - 2 * ( = " , " ) - 3 * (A$ = " 

-4* 


( A$ ” " J " ) - 5 * ( AS - 11 K" ) - 6 * ( A$ = "L 

") 




: rem 

41 

58 3 

AV*AV- 7* { A$ = 1, U" ) - 8* [ A$ ~ " I " } - 

9 * { A$ = 

OQH 


) : I FA$ = "H "THENA? = "0 " 

: rem 

134 

584 

IFAV>0THENA$=CHR$ (48+AV) 

: rem 

1 34 

585 

PRI NTCUR? ( 20 ) ; :A=ASC[A$) : IFA 

=1 30RA 

L = 44 


ORA-32THEN670 

: rem 

229 

590 

IFA>1 28THENN= -A: RETURN 

:rem 

1 37 

600 

IFAO 20THEN63 0 

: rem 

10 

61 0 

GOSUB690 : IFI = 1 ANDT=4 4THENN= - 

1 : PRINT " 


{SIN} {SIN}"; ; GOTO 6 90 

:rem 

172 

620 

GOTO570 

:rem 

109 

630 

IFA< 480RA> 57THEN5 80 

: rem 

105 

640 

PRINTAS ; :N=N*1 O+A-48 

: rem 

106 

650 

I F N > 2 5 5THENA= 2 0 : GOSUB 1 00 0:GQTO60 0 




: rem 

229 

660 

Z = Z+1 : IFZ< 3THEN58G 

: rem 

71 

670 

IF2 = 0THENGOSUB 1 000 :GOTO570 

: rem 

1 1 4 

680 

PRINT","; : RETURN 

: rem 

240 

690 

S%-PEEK (209) +256*FEEK (21 0) +PEEK ( 21 1 ) 



: rem 

1 49 

691 

FORI = 1 T03:T=PEEK (S%-I) 

: rem 

67 

695 

IFT< >44 ANDTO 5 8THENPOKES % - 1 , 

32: NEXT 



: rem 

205 

700 

PRINTLEFT$ (" £ 3 SIN} 11 , 1-1) l t 

RETURN 



: rem 

7 

710 

PRINT 11 {CLR} {RVS}*** SAVE *** 
{ 3 G I U r } " 

: rem 

236 


715 PRINT”£ 2 GIU 1 } PREMERE { RVS } RETURN 
{OFF} PER USCIRE DAL SAVE(GIU' }" 

: r em 103 


720 FS- Mn : INPUT"£GIU T }KOME DEL FILE";F$:I 
FF$- ” "THENP RI NT : PRI NT : GOTO 3 1 0 

; r em 42 

730 PRI NT : PRINT" { 2 GIU 1 } {RVS} N{OFF ] ASTRO 
O {RVS}D{OFF}ISCO: £N/D) u : rem 7 28 

740 GETAS : I FA$ < > "N "ANDA$ < > "D "THEN 7 40 

:rem 30 

750 DV= 1 - 7 * ( A$ = "D" ) : I FDV= 8 THENFS - "0 : "+F$ : 

OPENl 5 , 8, 1 5 , "S "+F$ ;CLOSEl 5 :rem 21 2 
760 T$ = F$ : ZK=PEEK ( 53 ) +2 56 *PEEK ( 54 ) -LEN(T$ 
) :POKE 782 ,ZK /256 ; rem 3 

762 POKE 787 , ZK- PEEK ( 782 ) * 256 : PQKE 78 G , LEN ( 

T$J:SYS 65469 ;rem 109 

763 POKE 780 , 1 :POKE 781 , DV ; POKE 7 82 f 1 :SYS 654 

6 6 : r em 6 9 

76 5 K=S : POKE 2 54 , K /2 56 : POKE 2 53 , K- PEEK ( 254 ) 
* 256 : PO KE 7 80, 253 : rem 17 

766 K=E + 1 : POKE 7 82 , K/ 2 56 : POKE 7 8 1 , K- PEEK (78 
2 ) * 256 ;SYS 65496 :rem 235 

770 IF { PEEK ( 783 ) AND 1 ) OR {197 ANDST ) THEN 78 Q 

: rem 1 1 7 

775 PRINT" {GIU 1 } FATTO* {GIU 1 }" :GOT 031 0 

: rem 201 

780 PRINT" {GIU 1 } ERRORE NEL SAVE-RI PROVA ì " 

:IFDV= 1 THEN 720 trem 104 

781 OPENl 5 , 8, 1 5 : INPUT # 7 5 , Eì $ , E 2 $ : FRI NTEl 3 

;E 2 $:CLOSEl 5 :GOTO 7 2 0 : rem 103 

790 PRI NT " { C LE } { RVS } * * * LO AD *** 

[ 2 GIU 1 } M "" : rem 21 2 

795 PRINT" { 2 GIU 1 } PREMERE { RVS 1 RETURN 
{OFF} PER USCIRE DAL LOAD{GIU * } " 

; r em 96 

800 F$ = ,f ": INPUT" { 2 GIU 1 } NOME DEL FILE" ; F 
$ :ÌFF?=""THENPRINT:GOTQ 31 0 :rem 775 

STO PRINT : PRINT" { 2 GIU 1 H RVS }N{ OFF ] ASTRO 
O { RVS } D{ OFF } ISCO : ( N/D) : rem 727 

820 GETA$ : I FA$ < > "N" ANDA$ <> "D "THEN 820 

: rem 28 

830 DV =1 - 7 * (A$=”D") : IFDV- 8 THENF? = "0 : r, + F$ 

:rem 157 

84 0 T$ = F$:ZK=PEEK( 53 ) + 2 56 *PEEK { 54 ) -LEN(T$ 
) : POKE 7 82 , ZK /2 56 trem 2 

841 POKE 7 81 , ZK-PEEK ( 782 ) *2 56 : POKE 7 80 , LEN ( 

T? ) : 5 YS 654 6 9 :rem 107 

84 5 POKE 7 80 , 1 :POKE 7 81 , DV : POKE 782 , 1 :SYS 654 
66 :rem 70 

850 POKE 7 80 , 0 : SYS 65493 :rem 11 

860 IF {PEEK ( 783 ) AND 7 ) OR ( 1 91 ANDST) THEN 870 

: rem 1 1 1 

865 PRINT" { GIU 1 } FATTO * " : GOTG 3 1 0 :rem 184 
870 PRINT" (GIU 1 } ERRORE NEL LOAD-RI PETI 1 

{GIU 1 IFDV- 7 THEN 800 trem 19 

880 OPENl 5 , 8 , 15 : INPUT#! 5 , El S , E 2 $ : PRINTE 1 $ 
;E 2 $:CLOSEl 5 :GOTO 800 :rem 1 02 

1000 REM CICALINO : rem 231 

1007 POKE 54296 , 1 5 :POKE 54277 , 45 : POKE 54278 , 
165 :rem 207 

1002 POKE 542 76 , 33 :POKE 54 2 73 , 6 : P 0 KE 54 272 , 5 

:rem 42 

1 003 FORT= 1 T 02 0 0 ; NEXT : POKE 54276,32 : POKE 5 4 

2 73 , 0 : POKE 54 272 , 0 : RETURN :rem 202 

2000 REM CAMPANELLO ;rem 130 

2001 POKE 54 2 96,1 5 : POKE 54277 , 0 : POKE 54278, 2 

47 :rem 152 

2002 POKE 542 76, 1 7 : POKE 54 273 , 40 : PQKE 54 2 72 , 

0 : rem 86 

2003 FORT= 1 TOl 00 : NEXT : POKE 54 2 76 , 1 6 : RETURN 

:rem 57 

3000 PRINTCS ; 11 { RVS } NON IN PAGINA ZERO O 
SU{DES}ROM " : GOTO ! 000 ; rem 240 
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Piccola guida per 
l’input 

dei programmi 


MMolti dei programmi listati da SUPERCOMMO- 
ITI DORÈ contengono particolari caratteri di control- 
lo {controllo cursore, tasti colore, video- inverse, ecc.). 
Per rendere chiaro ciò che dev'essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite ie seguenti convenzioni. 

Generalmente i listati per V1C 20 e €64 contengono delle 
«parole» racchiuse tra parentesi grafie j (; tali paroje 
rappresentano particolari caratteri di controllo: IGIÙ} 
significa premere il simbolo del cursore verso il basso, j 5 
SPAZI [ vuol dire battere 5 volte la barra-spazio. 

Per indicare che un tasto dev'essere «shiftato», cioè 
premuto insieme al tasto SH1FT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev'essere premuto il tasto 
S mentre è abbassato il tasto SH1FT, 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio J 10 Nj) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere IO volte jl tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [{)]* 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nelLangolo in basso a sinistra). 

Se il tasto scritto tra [()) è preceduto da un numero, 
ciò significa che il tasto dev'essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio { A j sta ad indicare la sequenza CTRL-A, 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR, 
Ogni tanto 1 programmatori desiderano muovere il cur- 
sore durante l'esecuzione del programma, E per que- 
sto motivo che nei programmi sì troveranno dei jSIN j, 
: HOME |e} BLU f. 

L'unico modo perché il calcolatore distingua il coman- 
do diretto da quello Inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore sì predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L'unico comando di editing non utilizzabile all'Interno 
dì un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Sì 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello dì premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete; 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

ICLftl 

IMI 

E 

{C¥N| 

B*HTI Q 

k 

f<?>] 

a ex 

a 

{ HOME J 

onsD 

S 

( POR } 

I3ET1 Q 

31 

[<8>ì 

so 

■ m 
m m 

{sui 

rm gè® 

□ 

f GRCi } 

m o 

n 

{FI} 


5 

{GIU * } 

GESQ 

E 

l BLU] 

rm gj 

Q 

(F2) 

rs 

SI 

(SIN) 

Eia SUB 

II 

{YEL} 

ceso 


(F3) 

Cfci 

5 

fDESj 


O 

£<1>Ì 

so 

C 

{ F 4 I 

m 

IE 

{RVS} 

lli'.'l Q 

□ 

l<2>) 

HO 

15 

{FS} 

ra 

II 

{OFF} 

GEJ O 

■ 

(<3>i 

HO 

E 

{ F6 ) 

ITd 

9 

{ BLK ] 

EU D 

■ 

[<4>] 

HO 

0 

{ F7 J 


II 

im ir) 

ciao 

m 

f < 5> J 

HO 

E 

{FB} 

an 

■ 

{RED} 
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0 
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HO 

■1 
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File relativi: semplicità ed 
economia 



di G* W. Miller e T» Heimarck 

trad ed adatt 

di M, CrUtulb Grlzzi 

Tra i possessori di disk drive 
uno degli argomenti senz'altro 
piu confusi è come utilizzare I fi- 
le relativi* Coti questo articolo 
cercheremo di spiegare come es- 
si funzionano e come crearsi un 
piccolo archivio che li utilizzi* 


P ossedere un disk drive 154J? Se è 
così, disponete di ben 163 Kbyte di 
memoria 'extra - ' per le variabili Preci- 
samente, 167132 byte di RAM aggiun- 
tiva per il vostro C64, VIC 20. C16 o 
Plus/4, che diventano accessibili con 
l'uso dei file relativi. 

H drive 1541 immagazzina le informa- 
zioni in diversi tipi di file* il più comune 
dei quali è il file programma {PRO. Se 
sì scrive un programma BASIC e lo si 
salva quindi su disco con SAVE“NO- 
ME",8, esso viene immagazzinato sul di- 
sco come file programma. 

1 file sequenziali sono anch'essi di sem- 
plice utilizzo: come i PRG* contengono 
dati, anche se in forma diversa* e vengo 
no creati generalmente con il comando 
PRINT#. 

L'uso dei file relativi aggiunge solo un 
po’ più di linee al vostro programma dì 
archivio che utilizzi i sequenziali, e non 
è di difficile attuazione. 

Tuttavia* quasi tutti coloro che hanno 
cercato di imparare ad usare i file relati- 
vi hanno incontrato una gran varietà di 
ostacoli* alquanto frustranti. In effetti, 
non esistono molte informazioni scritte 
sul loro principio di funzionamento, e le 
istruzioni date dal manuale del drive so- 
no incomplete e a volte addirittura sba- 
gliate. 

Dopo molti tentativi infruttuosi per far 
funzionare correttamente un file relati- 
vo la maggioranza delle persone lascia 
perdere. Ciò è comprensìbile, da! mo- 
mento che anche un programma di uti- 


lizzo di questi file, che funzioni corretta- 
mente* può a volte visualizzare degli er 
rori del DOS. anche se in realtà non si 
è verificato alcun errore. 

Iniziamo dunque un viaggio - passo do- 
po passo - all'interno de! procedimento 
per creare ed usare ì file relativi. Sarà 
sorprendente accorgersi che essi non 
sono così difficili da usare quanto sareb 
be potuto sembrare. 

Trovare un libro 
nella biblioteca 

Per prima cosa occorre capire bene le 


differenze tra i concetti dì file, record, 
campo e carattere. 

Un file contiene uno o più record, costi- 
tuiti a loro volta da uno o più campi, 

1 campi sono infine costituiti da caratte- 
ri. 

Immaginate di dover catalogare una 
piccola biblioteca di 500 libri: se non 
avete il computer, acquisterete un ar- 
chivio con 500 schede di carta. Ogni 
scheda avrà lo spazio per il nome del- 
l'autore* il titolo del libro, l'anno di pub- 
blicazione e il codice del libro. 

L'Intera collezione di schede è chiamata 
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"file". Ogni scheda, sia essa vuota o 
compilata, è un “rècord". Ogni catego- 
ria nella scheda {autore, tìtolo, anno e 
codice) è chiamata “campo". Sì noti che 
i record devono avere tutti la stessa mi- 
sura, mentre i campi possono avere una 
lunghezza qualsiasi {l’autore pouò esse 
re sia Fo - 2 caratteri - che Pirandello 
- 10 caratteri — e così vìa...}. 

É quindi del tutto intuitivo vedere come 
un campo contenga dei caratteri. 
Naturalmente, ci sarà sulle schede uno 
spazio limitato per scrivere nome del- 
I autore, tìtolo, ecc.: ci sarà dunque un 
numero massimo di caratteri disponibili 
per ogni campo, al di sopra del quale 
occorrerà ricorrere ad abbreviazioni. 
Poniamo che la somma dei caratteri di- 
sponibili per il nome dell'autore, più 
quelli per il tìtolo del libro, più quelli 
per la data e il codice sia 72: sarà que- 
sta la massima capacità della scheda, e 
quindi quella del record. 

Dal momento che abbiamo 500 libri, e 
quindi disponiamo di 500 schede, se 
viene acquistato un nuovo libro, non 
avremo più schede per catalogarlo. A 
questo fine acquisteremo una decina di 
schede nuove, da tenere per ogni eve- 
nienza dì futuri acquisti. Il contenitore 
delio schedario ha però una capacità 
massima - poniamo - di 1 200 schede: 
quando arriveremo a possedere il 1201 
esimo libro dovremo spezzare in due 
l'archivio. 

Perché usare I file relativi? 

1 file sequenziali sono facili sia da capire 
che da gestire alf interno di un program- 
ma: molti programmatori infatti ne fan- 
no uso ogni qual volta occorra imma- 
gazzinare informazioni su disco dati "in- 
terno di un programma. Dal momento 
che i file sequenziali sono così facili, per- 
ché dovremmo romperci la testa con i 
file relativi? 

Ritorniamo per un momento alla biblio- 
teca. Un cliente ci ha chiesto un libro di 
Faulkner: se il file {cioè l'archivio) fosse 
sequenziale, dovremmo consultare le 
schede in ordine, iniziando dalla prima, 
dalla A alla 2. Certamente noi umani 
andremmo “a naso" ad iniziare la ricer- 
ca, dove possiamo supporre che ci sia 
la F, ma il computer non ha "naso", ed 
inizierebbe in ogni caso ta ricerca dalla 
lettera A. Pensate al tempo che richie- 
derebbe. in questo modo, la ricerca di 
un libro di Zero astro... 

Cì sono due buone ragioni per immagaz- 
zinare le informazioni nei file relativi: 
velocità ed economia di memoria. Un 
file relativo permette infatti un accesso 
molto veloce ai record individuali. 

Con un file relativo si può andare diret- 
tamente nella locazione dove è imma- 
gazzinata l'Informazione ed ottenere so- 
lo e proprio quell'informazione che stia- 
mo cercando. E un po’ come se il com- 
puter diventasse dotato di quel “naso" 
di cui parlavamo prima, ed anche di 
un'ulteriore precisione, dal momento 
che l'uomo inizierebbe a cercare più o 
meno nella posizione In cui cì dovrebbe 


essere la lettera F, mentre il computer 
andrà a colpo sicuro ad estrarre la sche- 
da di Faulkner. Una delle ragioni più 
importanti per futili zzo dei file relativi 
é il fatto che essi non occupano alcuna 
quantità della memoria del computer, 
a parte quella occupata da un record in 
divìduale. 


Con l'appropriato programma in me- 
moria un VIC tnespanso può gestire un 
file contenente ben 163 Kbyte di infor- 
mazioni: invece di preoccuparvi che il 
programma di gestione non occupi trop- 
po spazio in memoria, potrete essere 
liberi di scrivere programmi eleganti ed 
elaborati con decine di opzioni diver- 
se. 

Un po' di regole 

I programmatori iniziano generalmente 
a contare da zero: la locazione di memo- 
ria più bassa è la 0, e sì trova in pagina 
zero. I file relativi non seguono questa 
convenzione: il primo record è il nume- 
ro uno, ed il primo carattere nel record 
è chiamato carattere numero uno. 
Inoltre, se avete su disco due o più file 
relativi, potete averne uno soltanto 
aperto in un dato momento, anche se è 
possibile usare contemporaneamente fi- 
le relativi e sequenziali. 

I record possono avere una lunghezza 
massima di 254 byte: se desiderate dei 
record più lunghi, dovrete spezzarli in 
due Ad esempio, un record di 400 ca- 
ratteri può essere spezzato in due re- 
cord da 200 caratteri ognuno. La prima 
metà dei record spezzati sarà numerata 
con numerazione dispari (1, 3, 5, ,.,) t 
mentre la seconda metà avrà numeri 
pari (2, 4, 6, 

I! massimo numero di record che è pos- 
sibile creare è 65535, anche se In prati- 
ca non si raggiungerà mai questo limite, 
per le limitazioni di spazio disponibile 
sul disco. 

Quando un disco viene formattato la 
directory mostra 664 blocchi liberi: i 
blocchi, chiamati anche settori, sono 
aree del disco che possono contenere 


256 caratteri ognuno. Due di essi ven- 
gono usati dal DOS (Disk Ope rating Sy- 
stem). lasciando liberi in realtà solo 254 
byte per blocco: è questa la ragione per 
cui la massima lunghezza di un record 
è 254 caratteri. 

I file relativi usano speciali settori, chia- 
mati "side sectors", per tenere il conto 


di quali settori contengono dati e quali 
invece no. Non importa ora conoscere 
come funziona questo procedimento, 
basti sapere che ogni file relativo può 
avere fino a sei "side sectors". Ognuno 
dì essi può controllare fino a 120 settori 
{non si confondano i settori con i re- 
cord!), per un totale quindi di 720 setto- 
ri. numero superiore a quello dei bloc- 
chi liberi in un disco vuoto e formatta- 
to. 

Riempire completamente un disco con 
un file relativo significa usare sei blocchi 
per i “side sectors", lasciando 664 - 6 
= 658 settori liberi per i dati. 

Quindi, 658 settori di 254 byte ognuno 
ci lasciano spazio per 167132 caratteri 
su ogni disco. Questa è la massima ca- 
pacità di un file relativo su disco. 

Ciò significa che si può riempire com- 
pletamente un disco con 658 record di 
254 caratteri ciascuno, oppure 1671 
record di 100 caratteri ciascuno, o qual- 
siasi altra combinazione di numero di 
record e numero di caratteri per record 
che, moltiplicati tra di loro, diano come 
risultato un numero minore od uguale 
a 167132. 

Come gestire 1 file relativi 

In un file relativo ogni record è numera- 
to e tutti i record devono essere con- 
traddistinti dalla medesima lunghezza. 
Normalmente, i campi all'interno di un 
record hanno a neh’ essi una lunghezza 
predeterminata. 

Per trovare un record all 'interno del file 
tutto dò che occorre sapere è il suo 
numero. Ciò può suonare come un pro- 
blema. ma vedremo qualche truce he! to 
per semplificare il procedimento dì ri- 
cerca . 


CAMPO ESTENSIONI DEI CAMPI £ LORO CONTENUTO 
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CAP 




TELEFONO 
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0 

CAP jcor.tlll im] 

L 
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3 
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1* 

2 

2 

n 




Ogni quadratino rappresenta un byte di informazione. Le Hneet- 
te in neretto mostrano l'Inizio e la fine di ogni campo. I campi 
sono riempiti compie temente quando il file viene scritto; I byte 
"vuoti" vengono riempiti con degli spazi» come nelle linee 210- 
280 del programma esemplificativo. 
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Sfortunatamente, la Commodore non 
ha incluso nel BASIC del C64 (e nem- 
meno in quello dei C16-Phis/4) alcun 
comando diretto per la gestione dei file 
relativi, al contrario invece di quanto 
accade con il BASIC 7,0 del CI 28, 
Possiamo comunque creare e manipola- 
re i file relativi usando i familiari coman- 
di della gestione dei sequenziali, più due 
comandi per il drive che appariranno 
meno familiari. 

Il primo passo 

Iniziamo a creare un file relativo. Occor- 
rono tre operazioni: 

1. aprire il file e stabilire la lunghezza 
dei record; 

2. contrassegnare l'ultimo record del fi- 
le; 

3. chiudere il file. 

OPEN è il comando usato per aprire 
qualsiasi tipo di file, compreso quindi 
un file relativo. La forma del comando 
è solo leggermente diversa da quella 
usata per aprire un canale con la stam- 
pante, od aprire un file sequenziale su 
disco: 

0PEN1,8,2, -NOME FILE,L," + CHR$ 
(LUNCH. RECORD) 

L'istruzione inizia come qualsiasi altro 
comando OPEN: 1 è il numero del file 
logico usato, 8 è il numero di periferica 
del drive, 2 è il numero del canale di 
comunicazione usato (può essere indif- 
ferentemente un numero tra 2 e 14. ma 
ricordate quale numero dì aanale avete 
usato, perché ne avrete bisogno più 
avanti). 

Segue una virgola ed il nome del file tra 
virgolette. Qui arriva la prima novità: 
al nome del file, sempre aH’interno delle 
virgolette, segue una virgola, la lettera 
L e un'altra virgola. A questo punto si 
chiudono le virgolette. La lettera L sta 
per Lenght, lunghezza dei record. Que- 
sto comando dice al DOS che deve es- 
sere aperto un file relativo, la cui lun- 
ghezza dei record è contenuta nel l'istru- 
zione CHR$. Si ricordi che la massima 
lunghezza ammessa è 254. 

Definire la lunghezza dei record è asso/u 
fornente necessario quando si crea un file 
relativo , Nel momento in cui dovremo 
even tua Unente espandere il file con rag- 
giunta dì nuouì record . sarò ancora ne- 
cessario specificarne la lunghezza. 

Se si lavora con un file relativo già pre- 
sente sul disco, si può invece usare un 
semplice comando OPEN; 

OPEN 1,8, 2, “NOME FILE" 

Non occorre in questo caso dire al drive 
che si tratta di un file relativo; esso se 
ne accorge automaticamente quando lo 
trova sul disco. Non occorre nemmeno 
fornire la lunghezza dei record, che allo 
stesso modo viene automaticamente 
H4 letta" dal drive. Infine non occorre 
nemmeno specificare se il file è stato 


aperto per la scrittura o per La lettura, 
in quanto si possono eseguire entrambe 
le operazioni. 

Il passo seguente aiuta a risparmiare un 
po’ dì tempo quando si usa il file: deci- 
diamo il numero dì record con il quale 
- per il momento - creare il nostro file. 
Potremo aggiungere dei record quando 
vorremo, più avanti. Dato che il DOS 
richiede un certo tempo per creare il 
file sul disco, conviene aprirlo e creare 
i recod prima dì immagazzinare qualsia- 
si dato. 

Ritornando all'esempio dell’archivio 
per la biblioteca, è molto più convenien- 
te comprare un certo numero di schede 
vuote tutte in una volta, piuttosto che 
perdere tempo per andare in cartoleria 
ad acquistare una nuova scheda per 
ogni libro che decidiamo di cataloga- 
re. 

Posizionare un puntatore 

Cè un altro comando che bisogna impa- 
rare; ha questa forma: 

OPEN15,8,15 

PR1NT #15. 1L P” 4- CHR$(nc+96) + 
CHR.DOL$(bb) + CHR$(ba) + 
CHR dol$(pl) 


13 canale 15 è quello dei comandi per il 
drive. Dobbiamo in questo caso aprirlo 
ed inviare al drive sei caratteri. Per pri- 
mo la lettera P (per Posizione, o Punta- 
tore). Questa P dice al drive dì cercare 
un certo record. Il secondo carattere è 
il numero di canale (nc) sommato a 96: 
se il file era stato aperto con 
OPEN 1,8,2, nc vale 2. 

I due numeri seguenti specificano un 
certo record come somma del byte bas- 
so più 256 volte il byte alto. Il record 
numero 300, ad esempio, $i tradurrà m 
CHR${44)+CHR$0), dal momento che 
44+(l*256)-30G. Ricordiamo che il by- 
te basso (bb) ed il byte alto (ba) si calco- 
lano trasformando il numero del record 
in un numero esadedmale di quattro 
cifre (300 diventa 0120, spezzandolo 
in due (Ole 20 e riconvertendo i due 
numeri ottenuti in decimale (01 in deci- 
male è 1= byte alto, mentre 2C in deci- 
male è 44= byte basso). Sembra molto 
complicato, ma non preoccupatevi: tutti 
questi calcoli non dovrete farli voi, ma 
toccherà al programma di gestione file 
calcolare questi parametri. 

L’ultimo carattere (pi) indica in quale 
parte del record occorre iniziare a leg- 
gere ◦ scrìvere. In molti casi sarà un 
CHR$(1), per indicare che vogliamo ini- 
ziare dall’ inizio del record, al primo ca 
ratiere. Per iniziare dal sesto carattere, 
ad esempio, useremo un CHR.S(ó). 

In generale occorre aprire dapprima il 
canale 15. quindi aprire il file relativo 
e posizionare il puntatore. Leggere e 
scrivere sul file, se è necessario, quindi 
chiudere sìa il file relativo che il canale 
di comando. 

OPEN 15 è la prima operazione da com- 
piere, mentre CLOSÉ15 sarà l'ultima. 


Il programma 

Con propositi dimostrativi analizzeremo 
un semplice programma di gestione dei 
file relativi. Per le sue caratteristiche 
didattiche, il programma non presenta 
un'utilità pratica; è tuttavia certamente 
possìbile sfruttare le tecniche presenta 
te per scriverò un database, che utilizzi 
i file relativi per qualsiasi tipo dì archivio 
desiderato: modificate a piacere le lìnee 
del programma a seconda delle vostre 
esigenze, magari aggiungendo delle 
routine di controllo degli errori di input, 
od altre migliorie che potreste ritenere 
necessarie. 

È importante ricordare che la sintassi 
delle istruzioni per la gestione del file 
deve essere assolutamente esatta. Qua 
lunque deviazione, anche piccola, cau- 
serà errori che potranno risultare di 
molto difficile individuazione. 

Per prima cosa occorre decidere che 
tipo dt informazioni vogliamo ìmmagaz 
zina re. Per un archivio indirizzi - ad 
esempio - dovremo inserire nome, via, 
città, stato, codice postale ed eventual- 
mente il numero di telefono. 

Ci semplifica dì molto le cose il porre 
la lunghezza dei campi uguale per tutti 
i record. Decidiamo il massimo numero 
di caratteri che verrà immagazzinato 
nel campo del nome di battesimo, del- 
l'eventuale secondo nome, del cogno- 
me e così via. 

È molto utile stabilire questi parametri 
dapprima su un foglio di carta. Ecco 
come possiamo definire i campi per l'ar- 
chivio indirizzi: 


Nome di battesimo 15 caratteri 

Secondo nome 15 caratteri 

Cognome 15 caratteri 

Vìa 30 caratteri 

Città 25 caratteri 

Stato (abbreviato) 3 caratteri 

Codice postale 5 caratteri 

Numero di telefono 12 caratteri 

Fine del record 1 carattere 

TOTALE 121 caratteri 


Ora che abbiamo determinato che la 
lunghezza totale dei record sarà dì 121 
caratteri siamo pronti per cominciare. 
Per risparmiare un po’ dì tempo nel 
l’esecuzione del programma decìdiamo 
subito con quale lunghezza del file ini- 
ziare (cioè il numero dei record per ora 
vuoti). Ricordiamo che potremo in qual- 
siasi momento aumentare questa lun- 
ghezza senza dover ricomiclare tutto da 
capo, ma semplicemente scrivendo dei 
record contraddistinti da un numero su- 
periore all'attuale fine del file. 

Siamo pronti per scrìvere la prima par- 
te del programma per file relativi. 
Quando si manderà in esecuzione il pro- 
gramma risponderemo alla domanda di 
lìnea 10 con 121, la lunghezza del re- 
cord che abbiamo precedentemente 
stabilito. 

Alla domanda di linea 20 risponderemo 
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con 50. Naturalmente, il valore è a scel- 
ta, con L’unica limitazione dello spazio 
disponibile sul disco (50 record dì 121 
caratteri usano poco più di 6 Kbyte dì 
spazio sul disco, cioè circa 25 bloc- 
chi}. 

La cosa migliore è usare un disco ap- 
posito per l’ Immagazzinamento dati dì 
un file relativo, separato dal disco su 
cui è registrato il programma dì archi- 
vio. 

Per posizionare il file sul record dobbia- 
mo aprire il canale dì comando e dire 
al DOS cosa intendiamo fare. 

La linea 50 apre il canale, la linea 60 
apre un file relativo di lunghezza RL e 
la linea 70 dice al DOS dì posizionare 
la testina di lettura/scritìura del drive 
sul record appropriato. Il numero del 
record viene trasmesso nel formato by- 
te basso/byte alto, che è determinato 
dalle lìnee 30 e 40. 

Infine scriveremo 3 a parola END sull' ul- 
timo record. Ciò libera spazio per il file 
e pone il valore 255 nel primo byte di 
ogni record sul disco. Questo processo 
può richiedere diversi minuti, special- 
mente se il file che sì apre è molto hm- 
9°- 

A questo punto il file su disco è stato 
creato, e può essere chiuso con la lìnea 
90. 

Uu errore InceUteitte 

La cosa più logica, a questo punto, sa- 
rebbe chiudere il canale di comando 
(CLOSE15), ma se lo facessimo, la luce 
rossa del drive inizierebbe a lampeggia- 
re, segnalando un errore. In realtà non 
si è verificato alcun errore: ciò che acca- 
de in questa situazione è che abbiamo 
scritto su un record contraddistìnto da 
un numero più alto dì quello che il DOS 
si aspetta, ed esso invia quindi un mes- 
saggio d'errore RECORD NOI PRE- 
SENT. La linea 95 legge il canale degli 
errori e visualizza il "falso" messaggio 
d’errore. Non è il caso di preoccuparse- 
ne: il suo significato è semplicemente dì 
avvertire che questo record non esiste- 
va precedentemente sul disco. 

Abbiamo ora un file relativo su disco 
pronto per ricevere dati e possiamo ini- 
ziare a preparare questi ultimi per il 
loro immagazzinamento. 

Preparare il recard 

I! nome “Max” contiene solo tre caratte- 
ri, mentre il nome “Antonio" ne contie- 
ne sette. Sarà conveniente far iniziare 
allo stesso punto del record sia il cogno- 
me di Max che quello di Antonio; per 
ottenere questo scopo possiamo conca- 
tenare il nome al cognome, tramite l 1 ag- 
giunta di un numero opportuno di spazi 
vuoti. 

Le linee 210-230 eseguono questa ope- 
razione, in modo che la stringa RC$ 
contenga tutti dati, con ij giusto numero 
di caratteri per ogni campo. 

Scrivere »□ disco 

Per scrivere dati sul disco si segue lo 
stesso schema usato nella creazione del 


1. apertura del file; 

2. posizionamento del puntatore sul re- 
cord che si intende scrìvere; 

3. scrittura del record; 

4. chiusura del file (opzionale). 

La linea 350 scrive le informazioni sul 
disco, la 370 legge il canale degli errori 
(se tutto va bene, deve visualizzare OK} 
e La linea 380 cì chiede V inserimento 
successivo. 

Avrete notato che non abbiamo cerca- 
to di inviare il separatore di fine record 
cui si accennava precedentemente. 
Sembrerebbe invece che abbiamo inse- 
rito in ogni record (che può contenere 
121 caratteri) solo 120 caratteri. In re- 
altà ne abbiamo inseriti 121: il comando 
PR1NT # - proprio come PR1NT - ag- 
giunge un RETURN (CHR$(13)J in mo- 
do automatico, se la stringa non è segui- 
ta da una virgola o un punto e virgola. 
Cè quindi un 13 nella posizione 121, 
fd è il separatore di fine record. 

E una buona idea riempire con informa- 
zioni finterò record, anche se i campì 
vuoti vengono semplicemente definiti 
come spazi. Se non sì segue questa pro- 
cedura, il record conterrà semplicemen- 
te dei CHRS(O). 

Leggere Il file 

Dopo aver scritto il file cì viene chiesto 
se vogliamo effettuare altri inserimenti, 
Rispondendo negativamente, passe- 
remo alla fase di lettura dei dati. 
Questa si svolge nel modo seguente: 

1. apertura del file; 

2. posizionamento del puntatore sul re- 
cord che si desidera leggere; 

3. lettura del record; 

4. chiusura del file (opzionale). 

Una volta che i dati sono stati imma- 
gazzinati su disco la loro lettura è molto 
facile. Se il record contiene meno di 80 
caratteri, si può usare il comando 
INPUT # , ma dal momento che abbia- 
mo usato record con lunghezza di 120 
caratteri, dovremo usare V istruzione 
GET # e concatenare le stringhe per 
costruire la stringa finale RC$, opera- 
zione compiuta dalla lìnea 560. 

Le linee 500-560 leggeranno i record 



dal disco, in sequenza, dal numero più 
basso al numero più alto. I passi per 
ottenere questo risultato dovrebbero 
ora apparire familiari: apertura del ca- 
nale 15, apertura del file relativo, posi- 
zionamento del puntatore e trasferi- 
mento dei caratteri dal disco alla RAM, 
attraverso l'uso del comando GET # , 
Le lìnee 699-810 permettono di ottene- 
re la miglior caratteristica dei file relati- 
vi: la lettura diretta di un qualunque 
record eliantemo del file, semplicemen- 
te specificandone il numero. Il program- 
ma, oltre a chiedere il numero del re- 
cord che si vuole leggere chiede anche 
da quale posizione - all'Interno del re- 
cord - si vuole iniziare la lettura. Per 
evitare, ad esempio, la visualizzazione 
dei nomi inserite 16. Per visualizzare 
solo i numeri di telefono inserite 109. 

Modificar* un record 

La possibilità di poter modificare un sin- 
golo record senza dover riscrivere tutto 
il file è una delle caratteristiche che ren- 
dono così potente l'uso dei file relativi. 
Anche qui si inizia con l’aprire il canale 
di comando ed il file, posizionare il pun- 
tatore sul record e quindi con Li leggere 
in memoria l'intero record. A questo 
punto è possibile effettuare tutte le mo- 
difiche desiderate a concatenare tutti ì 
campi all’Interno del record, come visto 
precedentemente. 

Quindi si riposi zi ona il file usando: 

PRINT # 15, H P" -f CHR$ (2) + CHR$ 
(bbl 4 CHR$ (ba) 4 CHR$ (primo byte) 

Ora si può usare PRINT # per riscrive- 
re il record. Infine occorre posizionare 
i/ puntatore ancora su/ primo carattere 
del record. Ciò potrà sembrare super- 
fluo, dal momento che ci siamo posizio- 
nati sul record prima di scrivere ì dati, 
ma se non si segue correttamente que- 
sta procedura, i nostri dati potrebbero 
essere alterati. Per maggiori dettagli su 
questo problema vedi nell' ulti ma parte 
dell'artìcolo il paragrafo “La controver- 
sia sul file relativi”. 

L 'ulti dio paeeo 

Con i file relativi può essere immagazzi- 
nata su disco una gran quantità di dati, 
tuttavia essi non saranno di alcuna utili- 
tà, se non siamo in grado di utilizzarli 
correttamente. 

Possiamo caricare in memoria ogni re 
cord In qualunque momento, ma con la 
lentezza del drive 1541 il procedimento 
può diventare piuttosto lungo e noioso, 
specialmente se si usano file molto lun- 
ghi. Addio ai sogni di grande velocità, 
che hanno fatto nascere L’idea di utiliz- 
zare I file relativi... 

Esistono fortunatamente delle tecniche 
che permettono di velocizzare tutto il 
procedimento. Il modo più semplice per 
gestire una ricerca all’interno dì un file 
relativo è creare dei cosiddetti file “indi- 
ce" per i campi chiave che si desiderano 
ricercare. 

Questi file “indice” sono generalmente 
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dei sequenziali già in ordine alfabetico 
- o comunque alfabeti zza bili con oppor- 
tune routine di sort - e caricati in una 
matrice appositamente creata da 
un'istruzione DIM Non è necessario 
leggere il file “indice” ogni' volta che si 
opera sul file relativo, ma solo quando 
si desidera ricercare velocemente un 
dato record e non se ne conosca il nu- 
mero progressivo. U file "indice’’, come 
avrete già intuito, associerà il contenuto 
del campo chiave al numero del record 
nel file relativo, permettendone una ri- 
cerca Immediata. 

La controversia sai file relativi: 
idee sbagliate e disin formar ione 

La letteratura esistente sul file relativi 
è quanto mai infarcita di inesattezze e 
di confusione. Il manuale del drive e 
vari libri dedicati all’argomento conterà 
gono errori ed informazioni sbagliate su 
come creare i file relativi e sul loro prin- 
cipio di funzionamento. Passiamo in ras 
segna alcune delle credenze più diffuse 
circa questo tipo di file ed analizziamo 
la loro attendibilità: 

CI SONO NUMEROSI “BUG" ALL'IN 
TERNO DEL DOS PER QUANTO RI 
GUARDA I FILE RELATIVI 

Falso, anche se soltanto in parte. Esiste 
un unico “bug” che influenza il tratta- 
mento dei file relativi, e viene descritto 
più avanti neirarticolo . Esso è comun* 
que raro e può essere evitato molto fa- 
cilmente. Inoltre i file relativi provocano 
a volte messaggi di errore "falsi" da 
parte del DOS che hanno tuttavia una 
ragion d’essere, se correttamente inter- 
pretati. 

Quando si lavora con i fife relativi, se 
ne ricordino i limiti: un massimo di 254 
caratteri per record, un massimo dì 
65535 record per file e un massimo di 
167132 caratteri per disco, 

CON I FILE RELATIVI SI POSSONO 
AVERE AL MASSIMO 720 RECORD 
PER FILE 

Falso, Questo è Terrore piu comune 
contenuto nei libri dedicati alTargomen- 
to, e lo stesso manuale del drive lascia 
Intuire questa limitazione. 

I file relativi sono veloci per il loro utiliz- 
zo dei “side sectors". Quando sì chiede 
-ad esempio - di leggere il record 533, 
il DOS usa i “side sectors" per stabilire 
dove si trova il record 533 a IT interno 
del disco, quindi salta direttamente su 
quel settore e ne legge il contenuto. 
Ognuno dei sei "side sectors” può gesti- 
re fino a 120 diversi settori, per un tota- 
le dt 720: più che abbastanza per copri- 
re il massimo di 658 settori disponibili 
per i file relativi su un disco nuovo e 
formattato. Alcuni autori hanno inter- 
pretato questo rapporto tra “side sec- 
tors" e numero di settori per arguire un 
numero massimo di 720 record. 

In realtà 720 è il massimo numero di 
settori che possono essere indirizzati dai 


“side sectors", ed è un limite mai rag- 
giungibile, dal momento che un disco 
completamente vuoto contiene soltanto 
664 settori, sei dei quali vengono Inoltre 
riservati per gli stessi “side sectors”. 

Il massimo numero di record è quindi 
65535 lanche se, con un numero così 
alto d] record, ognuno di essi occupe- 
rebbe solo due byte per poter entrare 
nel limite dello spazio disponibile sul di 
sco). 

CON 1 FILE RELATIVI BISOGNA 
IGNORARE I MESSAGGI DI ERRORE 
DEL DOS 

Falso. Con una sola eccezione, potete 
invece ignorare tutte le raccomandazio- 
ni che vi dicono dì ignorare i messaggi 
d’errore. In genere, tre errori sono co- 
munemente associati alla lettura e alla 
scrittura dei file relativi: 

50 RECORD NOT PRESENT 

51 OVERFLOW IN RECORD 

52 FILE TOO LARGE 

L’errore 50 indica che avete cercato dì 
accedere (leggere o scrivere) ad un re- 
cord il cui numero è superiore al nume- 
ro di record presenti sul disco. Se state 
creando un nuovo file, oppure espan- 
dendo un file già esistente, potete igno- 
rare questo errore (infatti, se scrivete 
un nuovo record ne! file, accedete a un 
record che non esisteva precedente 
mente). Un errore 50 confermo di fatto 
che Io creazione o t ' espansione del file è 
avvenuta con pieno successo. Potete eli- 
minare il lampeggiamento della spia 
rossa del drive leggendo il canale degli 
errori (INPUT # 15,E P E$): E deve vale 
re 50, ed E$ deve essere "RECORD 
NOT PRESENT". 

L’errore 51 ìndica che avete cercato di 
inviare al disco un numero di caratteri 
superiore a quello su cui era stato ini- 
zialmente “formattato” il file, ad esem- 
pio se cercate di scrivere 122 caratteri 
in un record creato per contenerne 121 , 
L’errore 52 deriva dal tentativo di crea- 
re dei file troppo grandi per poter esse- 
re contenuti nello spazio libero rimanen- 
te sul disco. Se su quest’ultimo sono 
contenuti altri programirv o comunque 
altri file, diminuisce logicamente lo spa- 
zio per i file relativi: una buona ragione 
per dedicare un intero disco a ciascun 
file relativo. 

Quando si immagazzinano dati in file 
sequenziali o relativi, è una buona idea 
leggere regolarmente il canale degli er- 
rori. Se create un nuovo file, controllate 
l'errore 50: in altri casi un errore del 
disco indica qualche problema con il fi- 
le, Soprattutto, non ignorate i messaggi 
d’errore. 

Cosa* create i nuovi file 

In generale occorre creare un file vuoto 
prima dt iniziare ad utilizzarlo per i dati. 
Se pensate di avere 60 record, alcuni 
libri raccomandano di scrivere subito 
qualcosa in tutti i 60 record. Ciò non è 


realmente necessario: tutto ciò che do- 
vete fare è invece scrìvere qualcosa nel 
record 60: gli altri 59 verranno creati 
automaticamente, ed ognuno dei re- 
cord vuoti conterrà un CHR${255), se- 
guito da una serie di CHR$ (0). 
Quando viene creato un file relativo 
occorre definire, come abbiamo visto, 
lunghezza del record con *\L,"+CHR$ 
(lunghezza del record). Dopo questa 
operazione specificare la lunghezza dei 
record è opzionale (a meno che stiate 
espandendo il file, nel qual caso è obbli- 
gatoria), Certamente non guasta ag- 
giungere questa lunghezza nelle istru- 
zioni OPEN, ma rimane comunque 
un’operazione che è possibile evitare. 

BISOGNA LASCIARE SEMPRE LO 
SPAZIO PER UN CHR$(13) 

Vero. Se desiderate 15 caratteri per 
record, dovete definirne una lunghezza 
pari a 16, L'istruzione PRINT # aggiun 
ge sempre un CHR$(13) alte stringhe 
che non terminano con una virgola o un 
punto e virgola. 

Che succede se non si aggiunge 1 alla 
lunghezza dei record? Inviare 15 carat 
teri più un CHR$(13) equivale all ‘invia- 
re 16 caratteri: se riempite con 16 ca- 
ratteri un record la cui lunghezza è stata 
definita di 15 caratteri, otterrete un er- 
rore 51, OVERFLOW IN RECORD, La 
luce rossa del drive lampeggera ogni 
volta che tenterete di scrìvere un re- 
cord . 

I prò e I contro dei separatori 
di campo 

Esistono due modi per immaggazztnare 
e per richiamare i dati da un file Telati 

vo. 

II primo metodo consiste ne! concatena 
re i campi ed inviare al record una luna 
ed unica strìnga. 

RC$=A$+B$+C$+D$:PRINT # 1,RC$ 

Per rileggere il dato In memoria usate 
GET # (per ottenere un carattere alla 
volta), quindi la funzione MID$ per 
spezzare il record nei diversi campi. 
L’altro metodo consiste nel separare ì 
campi con un CHR$(13), oppure una 
virgola: 

W$-CHR$(13) : RC$=A$ + W$ + B$ 
+ WS + C$ + D$ : PRINT # 1, RC$ 

Questa volta, invece dell’istruzione GE 
T # all'interno di un ciclo FOR/NEXT, 
si può regolare il puntatore ed usare 
l’ustrizone: 

INPUT # 1, A$, 8$, C$, D$ 

Il vantaggio è che INPUT# è legger- 
mente più veloce dì GET # . È anche 
possibile creare campi di lunghezza va- 
riabile: non occorrerà in questo caso ri- 
empire con spazi i caratteri non occupa- 
ti dei campi. Lo svantaggio risiede tutta- 
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via nel fatto che non sarà più possibile 
usare né virgole né CHR$(13) al Fin ter 
no di un campo. Inoltre la lunghezza dei 
record dovrà comunque essere legger- 
mente superiore, per via dei separato- 
ri. 

Un “bug” nei file feltrivi 

L'istruzione INPUT # pud a volte com- 
mettere errori nel leggere tutti ì caratte- 
ri di un file relativo, quando si aggiorna- 
no record in modo sequenziale. Si può 
eliminare questo "bug" con la semplice 
precauzione di posizionare il puntatore 
al record prima e dopo la scrittura del 
record stesso. 


540 PR I NT# 1 5 f " P" +CHRS ( 2 + 96 ) +CHRS 
Ì 1 03) +CHRS £2) +CHR$ (1 ) 

550 PRINTfcl f "NUOVI DATI" 

560 FRI NT li 5, **P rt ( 2+-96J +CHRS 

(103) +CHR5 ( 2 } +CHR5 (1 ) 

Se il puntatore viene posizionato prima 
e dopo la scrittura, non avrete mai a 
che fare con questo “bug". 

Esso è da mettere in relazione a quanto 
segue. 

Ogni settore del disco contiene 256 
byte, numerati da 0 a 255. I primi due 
byte vengono usati dal DOS, lasciando- 
ne 254 disponibili per programmi e file 
dati. 

Un file relativo contenente 200 caratte- 
ri per record occupa i settori del disco 
come segue: 


SETTORE BYTE 

NUMERO RECORD 

1 

0-1 

usato dal DOS 

1 

2-201 

TfitGtd ì 

! 

202 255 

record 2 (primi parie) 

2 

0- 1 

muto dal DOS 

2 

2-147 

record 2 fretto) 

2 

148 255 

record 3 (prime parte.! 

3 

04 

usato da! DOS 

3 

2 95 

record 3 (resto) 


Il record 1 è immagazzinato in prossimi- 
tà dell’imzio del settore 1, e viene inter- 
namente contenuto in quel settore, 
mentre i record 2 e si sono “spezzati" 
in due diversi settori. Il "bug" si presen- 


ta se sono verificate le seguenti condi- 
zioni: 

1. si sta aggiornando sequenzialmente 
il file, usando cicli FOR/NEXT per leg 
gere record individuali, modificarne il 
contenuto e quindi riscriverli sul disco; 

2. si scrivono soltanto pochi caratteri su 
un record che è immagazzinato a parti- 
re dainnUio di un settore (nelFesempio, 
se si scrivono meno di 199 carattere nel 
record Ih 

3. LI numero dì caratteri inserito in que- 
sto record è minore del numero di carat- 
teri che costituiscono la continuazione 
di altri record occupanti più di un setto- 
re fi record 2 e 3 dell 1 esempio), 

11 problema non si riprese nt era fino a 
quando si abbia a che fare con un re- 
cord contenuto airinmo di un settore di 
numero pari. 

Senz'altro tutto dò suonerà molto com- 
plicato, quindi passiamo alla pratica e 
facciamo in modo che il “bug" si riveli, 
attraverso un semplice esempio. 

Per prima cosa creiamo un file relativo 
con sei record di 252 caratteri ciascuno: 


10 OPES 1 5,8,1 5 tOPENI , 8 , 2 , " 0 : ABC , 
L ** +CHRS (252) 

20 FR I NT# 15," P fi +CHRS ( 2+96 > +CHR$ ( 
6) +CHRS (0) +CHR$ (1 ) 

30 FRI NT#! f "ULTIMO RECORD " 

40 INPUT*! 5,E,E$:FRINTES:CLGSEÌ : 
CLQSE1 5 


La linea 10 apre il canale di comando 
e un file relativo con lunghezza dei re- 
cord pari a 252. La linea 20 posiziona 
il puntatore sul record numero sei. La 
linea 30 inserisce i caratteri “ULTIMO 
RECORD" nel record 6 (creando auto- 
maticamente i cinque precedenti record 
vuoti) e la linea 40 chiude il file. 

Ora inseriremo dei dati in ciascun re- 
cord. Digitate NEW e copiate questo 
programmino: 


TO AS*="1 23456789" 

20 QPENÌ 5,8,1 SiOFENl , 8,2 , kl D : ABC" 
30 FORJ = 1 T0 5 : GQSU B 500 
40 PRINTtl , AStNEXT 
50 REM ORA CAMBIA I DATI 


60 J«1 ;GOSUB500i PRINTil , "A" 

70 FORJ-2TOS:GOSUB500 

80 INPUT» 1 , B$; FRI NT" RECORD #";J, 

BS 

90 BS»BS+STRS(J> 

100 FRI NT" MODI RIGATO IN ";BS 
110 GQSUB50O ; FRI NT! ! ,B$ 

1 20 NEXT 

I 30 FORJ- lTO5:OOSUB500; INPUT# 1 ,C 
$:PRINTJ,CS:NEXT 
140 CLOSE1 iCLOSEl 5 

499 END 

500 FRI NT# I Si M P" +CHRS (2 + 96) +CHRS 
( J) +CHR5 ( 0 > +CHRS (1 ) : RETURN 


La soub routine di linea 500 posiziona il 
puntatore sul record J. 

Per prima cosa le linee 10-40 inserisco- 
no A$ (“123456789") nei primi cinque 
record. La linea 60 modifica il record 1 
(che è contenuto all 1 inizio di un settore) 
e fa in modo che essa contenga soltanto 
il singolo carattere “A" (provate con 
"AB" o "ABC" e vedete che cosa succe- 
de). 

Nelle lìnee 70-120 si aggiornano i re- 
cord 2-5, leggendo B$ e quindi aggiun- 
gendo a questa stringa il numero dei 
record. La linea 80 legge il record con 
INPUT # , lo visualizza sullo schermo e 
vi aggiunge l'equivalente in stringa del 
numero J (STR$(J)). 

Infine le linee 130-140 leggono il file e 
visualizzano il contenuto di ciascun re- 
cord, Fate molta attenzione al record 

3, il cui contenuto è stato “corrotto" dal 
famoso “bug". 

Ora, aggiungete questa linea: 

1 1 5 GOSUBSOO 

La subrouiìne posiziona il puntatore ai 
record. Date ancora il RUN al program- 
ma e il fastidioso “bug" sarà scompar- 
so. 

Speriamo con questa trattazione di aver 
chiarito molti dei dubbi su] trattamento 
dei file relativi. Naturalmente si tratta 
dì un argomento un po' “tecnico", che 
per essere affrontato, richiede dal letto- 
re almeno la conoscenza della gestione 
dei file sequenziali. QuesPultima è stata 
trattata nella serie di articoli "Iniziare 
con un sistema a dischi" sui numeri 3, 

4, 5 e 6 del 1984. 


File relativi per VIC 20, 
C64. C16 e Plus/4 


5 REM ** CREA UN FILE RELATIVO ** 

; rem 5 

10 PRI NT'* (CLR} LUNGHEZZA DEI RECORD” i INPUT 

RL:RL«RL+t : rem 133 

20 PRINT^NUMERO TOTALE DI RECORD” : INPUTRN 
SRN = RN+1 : rem 155 

30 HB*INT(RN/256 ) ì rem 210 

40 LB=RN-HB* 2 56 : rem 77 

50 QPEN15,8,15 :rem 243 

60 OPENl ,8,2,” REL * F 1 LE * L * " +CHRS ( RL ) 

;rem 235 


70 PRINTIM 5, ,, P"+CHR$ f 2 + 96) +CHRS (LB) +CHR6 { 
KB) +CHR6 { 1 ) :rem 70 

80 PRINT# 1 t "END" irem 144 

90 CLOSE1 : rem 16 

95 INPUT#! 5,E,ES;PRINT” (RVSlSTATO DISCO:” 
: PRINTE5 : CLOSEl 5 trem 39 

99 REM ** PREPARA PER LA SCRITTURA ** 

: rem 62 

100 RC=RC+1 ; rem 8 4 

110 RC$ ” : r em 204 

120 SP$*"( 30 SPAZI)" :rem 219 

130 FRI NT” NOME” : 1NPUTNF3 : rem 22 

140 PRINT" SECONDO NOME" : INPUTMNS ; rem 41 
150 PRINT”COGNOKE n :INPUTLN$ item 247 

160 PRI NT" VI A" » INPUTSA$ : rem 20 2 
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1 70 

PRINT"CITTA 1 " 1 INPUTCIS 

: rem 

127 

t ao 

PRINT" STATO"; INPUTSTS 

; rem 

138 

1 90 

PRI NT" CAP" ; XNPUTZI $ 

: rem 

208 

200 

PRI NT" TELEFONO" ; INPUTPH$ 

: rem 

69 

210 

RC$=RC$+LEFT$ (NF$+5P$, 7 5) 

: rem 

73 

220 

RC$=RC$+LEFT$ (MN$+SP $ , 1 5) 

: rem 

81 

2 30 

RC$=RC$+LEFT$ (LN$+SP$, 1 5) 

: rem 

81 

240 

RC$ ”RC$+LEFT$ ( S A$ +SPS 1 1 5) 

:rem 

76 

250 

RC$ ~RC$ + LEFT$ (CI$+SF$, 1 5) 

: rem 

69 

260 

RC$ = RC3 + LEFTS (ST$+SP$, ! 5) 

: rem 

97 

270 

RC$=RCS+LEFT$ (ZI$+SP$,Ì 5) 

: rem 

94 

280 

RC$ = RC$+LEFT$ (PH3+5P$,ì 5) 

: rem 

84 

299 

REM ** SCRIVE SUL FILE ** 

: rem 

ì 6 

300 

OPERI 5,8,15 

: rem 

33 

310 

OPENl ,8,2 , "REL. FILE, L" 

; rem 

21 0 

3 20 

HB= INT ( RC/25 6 ) 

: rem 

249 

330 

LB-RC-HB*256 

: rem 

1 1 6 

340 

PRINT#! 5, "P"+CHR$ <2 + 96) +CHR$ (LB)+CHR$ 


(HB) +CHRS (1 ) 

: tem 

118 

350 

PRINT# 1 , RCS 

; rem 

94 

360 

CLOSEl 

; rem 

64 

370 

INPUT# 1 5 ,E, E$ : PRINT" {RVS } STATO DISCO: 


H : PRINTE$ iCLOSEl 5 

: rem 

83 

380 

PRINT: PRINT" UN ALTRO INSERIMENTO? 




;rem 

228 

390 

GETGS : IFG$=" "THEN39G 

: rem 

703 

400 

I FGS = 11 N " THE N 500 

; rem 

33 

410 

I FG8 = " S " THE N 1 00 

; tem 

35 

420 

GOTO 390 

: rem 

107 

499 

REM ** LEGGE SEQUENZIALMENTE IL FILE 


RELATIVO ** 

: rem 

43 

500 

FORA = 1 TORC : RC S = " " : PRINT" RECORD # " 

; A 



; rem 

64 

510 

OPENl 5,8,75 

: rem 

36 

520 

OPENl ,8, 2, "REL. FILE" 

: rem 

93 

530 

HB= INT (A/ 256) 

: rem 

168 

540 

LB=*A-HB* 2 56 

; rem 

35 

550 

PRI NT# 1 5,"P"+CHR$ (2+96) +CHRS <LB) +CHR$ 


{ HB) +CHR$ (1 } 

: rem 

121 

560 

FORBII TOl 20 : GET# 1 ,A$ :RC$ = 

RC$+A$ : NEXT 



; rem 

89 

570 

CLOSEl : CLOSEl 5 

: rem 

89 

580 

PRINTMID$ (RC$ , 1 , 1 5) 

: rem 

33 

590 

PRINTMIDS (RC$, 16,15) 

; rem 

83 

600 

PRINTMIDS (RC$, 31 ,15) 

: rem 

77 

610 

PRINTMID$ (RC$, 46, 15) 

: rem 

84 

620 

PRINTMID$ (RC$ ,76,1 5) 

: rem 

88 

630 

PRINTMID$ (RCS ,101 ,15} 

: rem 

1 26 

640 

PRINTMID$ (RC8 ,104,15) 

: rem 

1 30 

6 50 

PRXNTM ID$ (RC8 1 1 09,15) 

; rem 

136 

660 

NEXT 

: rem 

21 9 

699 

REM ** LEGGE RECORD INDIVIDUALE ** 



; rem 

133 

700 

PRINT"# RECORD DA LEGGERE 

" : INFUTRE 



: rem 

43 

710 

PRI NT" A PARTIRE DALLA POSIZIONE": 

INFU 


TPO 

: r em 

72 

720 

HB” INT ( RE/2 56) : LB-RE-HB*256 :rem 

25 

730 

OPENl 5,8 , 1 5 

;rem 

40 

74 0 

OPENl ,8, 2, "REL. FILE" 

: rem 

97 

750 

PRINT# 1 5,”P"+CHRS (2+96)+CHR$ ( LB ) +CHRS 


<HB) +CHR$ (PO) 

: rem 

233 

760 

POR A= POTO 1 20:GET#1 ,A$:PRINTA$; : NEXT 



: rem 

1 82 

770 

INPUT#! 5,E,ES: PRINT" {RVS} STATO DISCO: 


" ;PRINTE$ 

: rem 

65 

780 

CLOSEl : CLOSEl 5 

: rem 

92 

790 

PRINT" PREMI UN TASTO PER 

CONTINUARE" 



: rem 

251 

800 

GETGS : IFG$=""THEN800 

; rem 

95 

870 

GOTO7Q0 

: rem 

105 
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Ecco il nuovo Commodore 128 


di C Bufinoli 

tràci . ed adatt. 

di M. Cr latti ib Grizzt 



Il nuovo CI 26 cren molto inte- 
resse, specialmente tra i posse fi- 
mori del diffuso €64. Ha che cosa 
^ppreseuts realmente 11 CI 28? 
E solo una versione del €64 a 
128 Kbyte? Vediamo di scoprir- 
ne i segreti. 


P oco tempo dopo la sua comparsa 
sut mercato il C64 sì è dimostrato 
il leader indiscusso della nuova genera 
zlone dì homo computer: anche ai suo 
prezzo iniziale dì ottocentomila tire, il 
C64 possedeva una quantità di memo- 
ria offerta da macchine che ai tempi 
costavano milioni, insieme ad una grafi- 
ca dì ottima qualità, la possibilità di 
creare animazioni ed un eccezionale sin- 
tetizzatore sonoro, che ha portato un 
tocco di realismo a quelli che prima era- 
no solo dei beep. 

Il C64 è in breve diventato un best sel- 
ler, con più di due milioni di unità ven- 
dute in tutto il mondo e circa seimila 
rogrammi disponibili di tutti i generi, 
raro, nel mondo odierno della produ- 
zione di ho me computer, assistere a un 
fenomeno come quello che ha visto il 
C64 rimanere tale e quale per tre anni, 
senza nessuna innovazione o miglioria; 
dei resto, la sua diffusione è tale che 
ben pochi sarebbero disposti a rinuncia- 
re alla propria ben fornita collezione di 
programmi - ed alla possibilità di scam- 
biarli con altri amici anch'essl possesso- 
ri dì C64 — per acquistare un nuovo 
modello Commodore più potente (come 
ad esempio il Plus/4), ma con poco sof- 
tware disponibile. 


Dopo io scarso successo ottenuto dal 
Plus/ 4 - forse proprio per questo moti- 
vo - la Commodore ha mutato filosofìa 
ed ha lanciato il 028, perfettamente 
compatibile con il C64 e dotato di mag- 
giore potenza e flessibilità. 

H C128 è letteralmente costituito da 
tre computer in uno: un C64 con il fami- 
liare video a 40 colonne, SPRITE, SID 
e il BASIC V2; un C64 potenziato con 
128 Kbyte, tutte le caratteristiche stan- 
dard del C64, video a 40/80 colonne 
e BASIC 7.0; un computer CP/M com- 
patibile, che promette la possibilità di 
far “girare ** l'incredibile quantità esì- 
stente di software sotto CP/M. Con- 
frontata con quella del C64, la consolle 


del CI 28 è molto più grande, probabil- 
mente per poter gestire in modo non 
troppo complicato Thardware dei tre 
computer in uno. La parte principale 
delia tastiera è identica a quella del 
C64, con la differenza che i tasti funzio- 
ne sono stati spostati nelEangolo supe- 
riore destro e ridisposti orizzontalmen- 
te. E inoltre presente un tastierino nu- 
merico con 1 tasti ed ENTER 

(una duplicazione del tasto RETURN) 
Lungo la parte alta della tastiera si tro- 
vano i tasti ESC, TAB, ALT, CAPS, 
LOCK, HELP, LINE FEED, 40/80 Dì 
SPLAY e quattro tasti cursore separa- 
ti. 

Nessuno di questi tasti addizionali, corri- 
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preio il ta s fieri no numerico ed 1 tasti 
cursore separati, funziona Jn modo C64 
per conservare la totale compatibilità 
tra le due macchine. Sarebbe infatti ba- 
stata l’aggiunta di qualche routine ROM 
per la gestione di questi tasti, a fare in 
modo che qualche programma per C64 
non funzionasse bene sul CI 28: si è 
quindi preferito lasciare le cose esatta- 
mente cosi come sono sul C64, 

Ne! modo 128 l'interruttore 40/80 DI- 
SPLAY seleziona il tipo di schermo usa- 
to come default. Questo Interruttore 
viene letto all'accensione* alla pressio- 
ne di RUN/STOP+RESTORE o quan- 
do viene premuto il pulsante di RESET 
( vicino all’interruttore di accensione). 
Esso non ha alcuna funzione In modo 
C64, dal momento che non sono dispo- 
nibili le 80 colonne* ancora per questio- 
ni di perfetta compatibilità. 

Sla In modo 128 che In modo CP/M* io 
stesso chip VIC usato nel C64 visualizza 
40 colonne* grafica e SPRITE. Lo 
schermo a 40 colonne può essere visua- 
lizzato solamente su un apparecchio TV 
o su un monitor composito, ma non su 
un monitor RGB. Quest'ultimo infatti vi- 
sualizza un numero doppio di pixel e 
caratteri rispetto al modo 40 colonne, 
con l'estrema purezza dei colori ottenu- 
ta separando U segnale nelle sue tre 
componenti: rossa, verde e blu. Un se- 
gnale composito possiede invece queste 
tre componenti mischiate Insieme* fatto 
che rende difficile una netta separazio- 
ne dei tre colori. 

Per le 80 colonne viene usato uno spe- 
dale chip video, e lo schermo a 80 co- 
lonne può essere visualizzato soltanto 
su un monitor RGB. Nel modo 80 colon* 
ne sono disponibili tutti i sedici colori 
(benché il colore che si ottiene premen- 
do 1 tasti Commodore ed 1, normalmen- 
te arancione, appaia come un violetto 
scuro), insieme al reverse video ed alla 
sottolineatura. A differenza del modo 
40 colonne, sono disponibili ben 512 
caratteri: ciò significa che è possibile 
visualizzare contemporaneamente sullo 
schermo caratteri maiuscoli, minuscoli 
e tutti l caratteri grafici ottenibili da ta- 
stiera. 

Questo chip a 80 colonne è dedicato 
solo al testo: non consente SPRITE o 
grafici a mappa di bit. È possibile tutta- 
via ridef inire i caratteri e creare quindi 
una piccola finestra di 640x48 pixel, 
che simula una paginetta grafica. 

Il chip video a 80 colonne usa ben 16 
Kbyte di memoria di schermo, che tut- 
tavia lasciano Inalterata la memoria di- 
sponibile nel modo 128: quest'ultimo di- 
spone quindi In realtà di 144 Kbyte di 
RAM 

Esistono tre modi per passare dalle 40 
alle 80 colonne: spostare l 1 interruttore 
40/80 e premere RUN/5TOP + RE- 
STORE, premere ESC-X in BASIC, o 
dare il comando SCREEN 0 per 40 co- 
lonne e SCREEN 5 per 80 colonne. 
Questi due schermi sono comunque in- 
dipendenti e se per ipotesi si avessero 
collegati al computer due diversi moni- 


tor, la stampa su uno schermo lascereb- 
be inalterato l'altro, e viceversa. 

Il monitor Commodore 1902 è Ideale 
per il CI 28* in quanto comprende un 
video composito a colori, un vìdeo RGB 
compatìbile IBM ed un video RGB ana- 
logico {per futuro uso con T" Amiga Lor- 
raine"}. Con il 1902 è possibile spostare 
manualmente un interruttore per poter 
regolare il monitor sul modo di schermo 
che abbiamo scelto con 11 computer. Ciò 
può sembrare aiquanto laborioso, ma la 
Commodore ritiene - pensiamo giusta- 
mente - che si lavori per un tempo ra- 
gionevole in un modo piuttosto che In 
un altro, senza richiedere quindi fre- 
quentissimi passaggi dalle 40 alle 80 
colonne e viceversa. 

Il nuovo drive 1571 amplifica ulterior- 
mente la potenza del 028. Nel modo 
C64 LI 1571 si comporta esattamente 
come un 1541. U 1571 che abbiamo 
provato non era totalmente ROM- 
compatibile con il 1541 (ìl nostro pro- 
gramma TURBQDISK, ad esempio, 
non ‘‘girava")* ma abbiamo ricevuto as- 
sicurazioni che la compatibilità con li 
1541 sarebbe stata in seguito migliora- 
ta. 

Nel modo 128 il 1571 mostra la sua 
vera potenza, con capacità di immagaz- 
zinamento dati di 860 Kbyte (al contra- 
rio del 1541 che arriva a circa 1 70 Kby- 
te) e velocità di trasferimento dati da 
sette a dieci volte superiore. 

L* aumentata capacità di immagazzina- 
mento dati è dovuta al progetto “a dop- 
pia faccia 11 del 1571, con due diverse 
testine dì lettura /scrittura* una per ogni 
lato del disco. Naturalmente, ciò obbli- 
ga all uso di dischi, a doppia faccia, leg- 
germente più costosi di quelli normali. 
E ancora possibile usare un 1541 In mo- 
do 128, e io stesso 1571 può essere 
programmato per essere compatibile 
con il 1541 anche in modo 128. In que- 
sto modo non e necessario trasferire 
programmi precedentemente registrati 
con il 1541 su dischi in formato 1.571/ 
128 

Altre periferiche Commodore, come 
modem o stampanti, funzionano anche 
In modo 128, senza quindi dover richie- 
dere la sostituzione dell' intero siste- 
ma, 

11 1571 è ottimizzato inoltre per ìl modo 
CP/M (anche qui è comunque possìbile 
utilizzare ìl 1541). In modo CP/M li 
1571 può immagazzinare su disco fino 
a 410 Kbyte di dati. 

La Commodore ha sviluppato una nuo- 
va versione del CP/M, chiamata CP/M 
Plus* che rende possibile alle nuove ap- 
plicazioni scritte in CP/M l'accesso alla 
grafica del chip VIC, agli SPRITE, alle 
80 colonne a colori RGB ed al sintetiz- 
zatore sonoro SID: possibilità alquanto 
interessanti per un computer CP/M! 

Al contrarlo del CP/M su cartuccia per 
C64, il CP/M Plus è una vera imple- 
mentazione “alla fonte* del micropro- 
cessore ESO: le Intere risorse del siste- 
ma sono quindi accessibili al CP/M stes- 
so. La Commodore è attualmente molto 


impegnata nella conversione di dischi 
CP/M nel formato 1541, in modo che 
essi possono essere caricati sia dal 
CI 28 che dal CP/M su cartuccia del 
C64. Il nuovo 1571 può comunque es- 
sere programmato per per poter legge- 
re molti diversi formati di disco: ad 
esempio, può essere usato un apposito 
programma di configurazione per fare 
in modo che il drive legga ] formati più 
comuni del CP/M, compresi i dischi for- 
mattati dal computer Osborne o Kay* 
pra. 

Ottimo è il BASIC 7.0 del modo 128: 
ci pare la versione del BASIC più perfe- 
zionata fino ad ora implementata su 
personal computer, meglio ancora del 
l 'Advanced BASIC IBM. IL BASIC 7,0 
combina in pratica il meglio del BASIC 
V2* del Simon 's BASIC* della Super 
Expander 64, del BASIC 3.5 (06- 
Flus/4) e dei comandi per il drive del 
BASIC 4.0, comprendendo inoltre una 
serie di nuovi comandi studiati apposi- 
tamente per II C128. 

Esistono più di 80 nuovi comandi e fun- 
zioni* e gli Interi 128 Kbyte sono dispo- 
nibili per la programmazione: 64 Kbyte 
“puliti” per i programmi BASIC e 64 
Kbyte per la memorizzazione di variabi 
li, stringhe e matrici fmeno la memoria 
usata dal sistema operativo e la mappa 
dello schermo a 40 colonne), L'unica 
particolarità, forse dimenticata In que- 
sto perfezionamento del BASIC, i la 
lunghezza dei nomi di variabile, ancora 
limitata al primi due caratteri significati- 
vi. 

Sono compresi, come detto* tutti I co- 
mandi per il drive del BASIC 4.0, tali 
da permettere ai possessori del CI 28 
di eseguire alcuni dei programmi scritti 
per i) CBM 4032/8032. Questi coman- 
di aboliscono la necessità delle solite 
OPEN 15, 8, 15 : PRINT#Ì5. "coman- 
do” : CLGSE15. 

Molti dei comandi per il drive possono 
essere usati con sistemi a dischi doppi 
0 drive chiamati 0 ed l) e con molteplici 
drive indirizzati con diversi numeri di 
periferica . SH1FT +R UN /ST OP assu- 
me come default il disk drive, caricando 
e mandando in esecuzione il primo pro- 
gramma presente sul disco. 

DLOAD e D5AVE sono usati per cari- 
care e salvare programmi BASIC da /su 
disco, e CÀTALOG o DIRECTORY li- 
stano sullo schermo la directory senza 
cancellare il programma in memoria. 
SCRATCH permette di cancellare dei 
file su disco* domandando - prima di 
procedere — ARE YQU $URE? T mentre 
HEADER viene usato per formattare 
un disco nuovo. 

COLLECT esegue la valìdate, liberan- 
do tutti I blocchi male allocati* COPY e 
CONCAT permettono di copiare o 
combinare file sul medesimo disco o tra 
due drive del medesimo sistema (ma 
non con drive contraddistl da un diverso 
numero di periferica). Anche BACKUP 
può essere usato solo con un sistema a 
disco doppio. 

APPEND permette dì aggiungere dati 
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ad un file esistente, DOPEN e DOLOSE 
rendono più facile la gestione file e RE- 
CORD rende un divertimento usare f 
“famigerati” file relativi. 

Le variabili riservate D5 e D5$ permei 
tono di leggere il canale degli errori, e 
DCLEAR chiude tutti i canali rimasti 
aperti con IL disco, 

È presente inoltre una serie completa 
di comandi per l'aiuto nella program- 
matone: AUTO genera automatica- 
mente i numeri di linea, DELETE can- 
cella linee di programma, HELP mostra 
quale istruzione BASIC ha provocato 
un messaggio d'errore, 

RENUMBER ri numera completamente 
un programma, compresi i GOTO e 
GOSUB; TRON e TROFF permettono 
di entrare ed uscire dal modo "trace” e 
KEY visualizza le definizioni correnti dei 
tasti funzione, permettendo di modifi- 
carle a piacere. 

Le funzioni HEX$ e DEC permettono 
di convertire numeri decimali in esade- 
cimali e viceversa e h oltre alle AND e 
OR, esiste anche l'operatore logico 
XOR di OR esclusivo. 

Gli entusiasti della programmazione 
strutturata non saranno più obbligati ad 
usare i odiato GOTO: la condizione IF/ 
THEN è ora dotata anche di ELSE: BE- 
GIN/BEND permettono di definire un 
gruppo di linee che verranno eseguite 
solo se la precedente condizione IF/ 
THEN ha dato un risultato vero, 

DO: LOOP UNTIL. DO:LOOPWHILE, 
DO UNTILiLOOP e DO WHILE:LOOP 
eseguono una serie di linee mentre una 
certa condizione è vera. 0 fino a che 
una certa condizione si dimostra falsa. 
EXIT permette di uscire da un ciclo in 
qualsiasi momento. 

RESTORE può ora essere fatto seguire 
da un numero di linea, per iniziare La 
lettura da una qualsiasi linea DATA 
TRAP passa l’esecuzione del program- 
ma ad un numero dì linea specificato, 
se si è verificato un errore: il program- 
ma può esaminare il tipo dì errore attra- 
verso la variabile riservata ER. il nume- 
ro di linea in cui esso si è verificato 
attraverso la variabile riservata £L ed 
il messaggio d'errore attraverso la fun- 
zione ERR$. Dopo aver “gestito* Terro- 
re RÉSUMÉ ripassa il controllo all'Istru- 
zione successiva all'errore stesso, oppu 
re ad una Linea di programma specifica- 
ta. 

La gestione delle stringhe è semplificata 
dàll'istruzione INSTR. che trova la posi- 
zione di una sottostringa all'interno di 
una stringa piu lunga. PRINT US1NG 
permette dì definire il formato dì stam- 
pa. rendendo molto più facile incolon- 
nare correttamente numeri e creare ta- 
belle. 

WINDOW crea una finestra con scorri- 
mento indipendente dal resto dello 
schermo, e può essere usata per simula- 
re in modo semplice una gestione delle 
finestre tipo Macintosh, 

Più nessun bisogno di POKE per il con 
trailo del chip sonoro SID: il BASIC 7.0 
comprende molti comandi per ottenere 


musica ed effetti sonori. 

SOUND definisce frequenza, durata e 
forma d’onda di un suono. PLAY è un 
mini-linguaggio essa stessa: può essere 
usata per suonare stringhe di note, spe- 
cificare nomi dì note, durate, toni, ecc. 
PLAY può essere usata per sincronizza- 
re musica a tre voci, regolare i filtri e 
controllare il volume individuale di eia 
scuna voce. 

Ogni voce pud essere indirizzata da una 
serie di inviluppi predefiniti per simula- 
re fino a dieci diversi strumenti musicali, 
che possono a loro volta essere perso 
na lizzati con ENVELOPE. Anche i filtri 
possono essere personalizzati con F1L- 
TFR. ed è possibile regolare il volume 
con VOL, ed il ritmo con TEMPO, 

Il ii A SIC 7.0 offre un ricco vocabolario 
di comandi indirizzati alla grafica: GRA- 
PHIC viene usato per entrare sta in pa- 
gina grafica multicolore 160x200. sia in 
bitmap 320x200. sia in pagina testo a 
40 colonne che in pagina testo a 80 
colonne, GRAPHIC permette di defini- 
re una finestra di testo in pagina grafica, 
e può sìa pulire lo schermo che lasciarlo 
inalterato. Per la pulizia dello schermo 
può essere usato anche SCNCLR 
Quando si entra in modo grafico l'inizio 
del BASIC viene spostato oltre la fine 
della pagina grafica. GRAPHIC CLR 
viene usato per disalveare la memoria 
usata dalla pagina grafica e RGR resti- 
tuisce il numero del modo grafico cor- 
rente, 

DRAW plotta un punto singolo o una 
linea per creare disegni complessi. LO- 
CATE permette di definire la posizione 
del cursore grafico senza plottare alcun 
punto. BOX plotta rettangoli vuoti o 


pieni, con qualsiasi inclinazione. CIR 
CLE traccia cerchi, ellissi, archi e qual- 
siasi poligono, con qualsiasi angolo di 
rotazione. È possibile inserire del testo 
in qualsiasi punto della pagina grafica 
con l’istruzione CHAR, CHAR si può 
usare anche in pagina testo per simula- 
re l'istruzione PRINT AT (mancante). 
COLOR definisce iE contenuto dei regi- 
stri colore e RCOLOR legge il colore 
assegnato ai registri stessi. PAINT può 
riempire qualsiasi forma chiusa con un 
colore qualunque, SSHAPE è in grado di 
leggere qualsiasi blocco dello schermo 
ed immagazzinarlo in una stringa. Que- 
st 'ultima può poi essere ricopiata in 
qualsiasi posizione dello schermo con 
GSHAPE. 

Un pixel può essere “testato" con la 
funzione RDOT, che restituisce il colore 
del pixel alla riga e colonna specificate. 
Il comando WIDTH definisce le dimen- 
sioni dei pixel plottali: un valore 2 rad- 
doppia la larghezza di tutti 3 pixel. Infi- 
ne il comando SCALE permette di trat- 
tare la pagina grafica come se avesse 
dimensioni di 1024x1024 pixel, ricalco- 
la ndo automaticamente la scala delle 
figure disegnate. 

Il BASIC 7.0 non sarebbe certamente 
completo senza comandi per gli SPRI- 
TE , e ne possiede infatti un gran nume- 
ro. Per prima cosa esso comprende un 
semplice SPRITE editor. Basta digitare 
SPRDEF e sullo schermo appare una 
griglia. Dopo aver inserito il numero del- 
lo SPRITE che si intende definire si pos- 
sono usare i tasti cursore ed i tasti nu- 
merici da 1 a 4 per definire sulla griglia 
i pixel accesi e spenti dello SPRITE ed 
i loro colori. 


Il Commodore 128 è una macchina “tre In uno", contenendo un 
normale C64, un C64 con 128 Kbvte e un computer CP/M Z80. 
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Lo SPRITE viene quindi immagazzinato 
in un'area riservata di memoria, che 
può essere salvata su disco con il co- 
mando 8SAVE. per essere in seguito 
richiamata con BLOAD. Tutto dò elimi- 
na la necessità di lunghe serie dì istru- 
zioni DATA. 

Per definire i parametri dello SPRITE 
sì usa T omonima istruzione SPRITE. 
Questo comando abilita lo SPRITE, ne 
definisce colore, priorità , posizione ini- 
ziale X ed V. e tipo di visualizzazione 
(normale o multicolore). 

MOVSPR permette di muovere lo 
SPRITE sullo schermo semplicemente 
specificandone velocità di movimentp 
ed angolo del moto, Mentre lo SPRITE 
si muove, il programma può procedere 
nel compiere altre operazioni (ciò è pos- 
sibile perché la posizione degli SPRITE 
viene aggiornata durante 1" interruzione 

IRQ). 

Mentre Io SPRITE sì muove è possibile 
leggere la sua posizione con RSPPOS, 
Si può inoltre trasferire la forma dello 
SPRITE in qualsiasi stringa, o copiarla 
da una stringa in un qualsiasi SPRITE. 
Combinando SSHAPE con GSHAPE, è 
possibile leggere un qualsiasi blocco di 
schermo e trasformarlo in uno SPRITE. 
quindi duplicare il disegno dello SPRÌ- 


TE stesso in qualsiasi altra parte dello 
schermo 

SPRCOLOR definisce i registri per il 
formato multicolore, che vengono a loro 
volta letti dalla funzione RSPRCOLOR. 
L'istruzione COLLISION passa li con 
trollo ad un numero di linea specificato, 
se due SPRITE entrano in contatto, o 
se uno SPRITE tocca qualche carattere 
visualizzato sullo schermo. Il program- 
ma sarà in grado di sapere che cosa ha 
provocato la collisione, attraverso la 
funzione BUMP, 

Opportuni comandi sono disponibili per 
Il controllo di joystick e padelle: JOY 
restituisce la posizione di ciascun joy 
stick, POT legge una delle quattro pad- 
die collegabili e PEN legge le coordinate 
X e Y della penna ottica. 

Infine ci sono dei comandi con varie furv 
zionì: SLEEP si usa come ciclo dì ritardo 
con pausa da 1 a 65353 secondi GET- 
KEY funziona come GET.ma attende 
fino a che venga premuto un tasto. 
GQ64 entra in modo C64, ma domanda 
prima ARE YOU SURE?, dal momento 
che tutto ciò che è contenuto in memo- 
ria nel modo 128 andrebbe perduto. 

Il BASIC 7.0 possiede praticamente tut- 
ti i comandi di cui un programmatore 
potrà mai aver bisogno. Il loro numero 


aumenta sicuramente il tempo necessa- 
rio ad imparare la programmazione del 
CI 28, ma, una volta superato questo 
trascurabile ostacolo, programmare di- 
venta semplice come bere un bicchiere 
d'acqua 

Il Gì 28 è il logico miglioramento del 
C64 senza sacrificare la compatibilità 
con quest 1 ultimo, offre tutto dò che un 
appassionato può desiderare. 

Il BASIC 7,0 fornisce Sa gran libertà di 
programmare senza dover ad ogni pas- 
so consultare mappe di memoria o ri- 
correre a routine in linguaggio macchi- 
na. 

Il video a 80 colono ne, il microprocesso- 
re a 2 MHz* ì 128 Kbyte di memoria 
(espandibili teoricamente fino a 1 Mby 
te), il CP/M Pìus ed il veloce drive a 
doppia faccia rendono il C128 un po- 
tente computer anche gestionale, com- 
petitivo con concorrenti molto più co- 
stosi, quali Apple ed IBM, Come sem- 
pre, logicamente, dovremo attendere 
che venga prodotto del software che 
tragga profitto da queste sue caratteri- 
stiche, Benché sia già possibile usare il 
software esistente per il C64 ed il CP/ 
M, sembra che, almeno per un po', i 
programmi m BASIC 7.0 dovremo scri- 
verceli da soli. 
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Nel mondo sotttrrtnco che è II 
vostro universo, le strane crea 
ture sono pressoché Invincibili 
mentre si aprono la strada ingo- 
iando terra. L'unica difesa è cer- 
care di attirarle strategicamente 
sotto un masso pericolante. Un 
gioco completamente in linguag- 
gio macchina per VIC 20 e C64, 


L o scopo del gioco è evitare tre stra- 
ne creature, che vi seguono ne! vo- 
stro vagabondare sottoterra, Il gtoco ir, 
zia premendo FI . L'unico modo per e. 
minare te creature è scavare la terra 
sottostante una delle tre rocce, facendo 
in modo che queste cadano fino a tocca 
re nuovamente il suolo, travolgendo tut- 
te le creature che si trovano sulla loro 
strada. 

Le creature possono inoltre essere tem- 
poraneamente immobilizzate, usando 
verso dì loro la vostra speciale pompa 
ad aria. 11 getto d'aria viene emesso pre- 
mendo il pulsante di fuoco mentre ve 
state muovendo verso l'obiettivo. Una 
volta che la micidiale pompa è entrata 
in contatto con la creatura premete F7 
per attivarla: dovrete attendere fino a 
che fa creatura sia stata totalmente 
'■gonfiata", mentre le altre continueran- 
no a darvi la caccia. 

L'uso de! pulsante di fuoco richiede un 
mimmo di esperienza: per attivare la 
pompa occorre essere in movimento e 
premere contemporaneamente 11 pul- 
sante di fuoco. Una volta eliminate tutte 
e tre le creature inizierete un secondo 
schermo con la pressione della barra 
spaziatrice: il gioco continuerà con pun- 
teggi sempre più alti. Per ogni schermo 
completato compare un piccolo fiore 
nella parte alta dello schermo, mentre 
se una creatura vi tocca, il punteggio 
ritorna a zero e tutti i fiori vengono eli- 
minati. 

Note alla versione per C64 

Nella versione per C64 Dtgger è un feli- 
ce elfo che vive in un mondo sotterra- 
neo. mangiando ciò che lo circonda. Egli 
ha un solo problema: è continuamente 
circondato da tre Troll che scavano tut- 
t 'attorno a lui. L'unica difesa del povero 


Dsgger è cercare di fare in modo che j 
Tro;! scavino la terra sottostante alcune 
grosse rocce queste possono cadere 
sull'ignaro Troll, facendolo scomparire 
per un certo tempo. Digger deve essere 
comunque molto attento a non toccare 
nessun Troll e nessuna roccia, altrimen- 
ti tutti : Troll precedentemente scom- 
parsi ricompariranno immediatamente. 
Guadagnate 10 punti per ogni Troll 
scomparso e 100 punti se eliminate tutti 
ì Troll presenti sullo schermo. Con il 
joystick collegato in porta 2 potete 
muovere Digger sia orizzontalmente 
che verticalmente; esso continuerà a 
muoversi fino a che Io fermate, posizio- 
nando diagonalmente il joystick, 
fn qualunque momento si pud fermare 
il gioco premendo SH1FT-LOCK Sì noti 


che la versione per C64 non è dotata 
della possibilità di distruggere i Troll 
tramite la pompa ad aria. 

Il gioco utilizza la grafica ad alta risolo 
zione e gli SPRITE per visualizzare il 
mondo sotterraneo, Un'apposita routi- 
ne di interruzione raster permette di 
avere contemporaneamente sullo 
schermo grafica in alta risoluzione e te- 
sto. 

Note per il caricamento e la 
digitazione 

Per il C64. se si dispone della cassetta 
allegata alla rivista, è sufficiente posizio- 
narsi con il nastro in corrispondenza del- 
l'inizio del programma e digitare 

LOACTM.l 
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(attenzione: non inserire spazi tra gli 
apici!). 

Il programma andrà quindi mandato in 
esecuzione digitando: 

SYS 49152 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire questuiti 
ma completamente riawolta nel regi- 
stratore, azzerare il contanastro e digi- 
tare: 

LOAD"*" 

Dal momento che sicuramente non esi* 
ste sulla cassetta alcun programma di 
nome “*" t il computer passerà in rasse- 
gna tutti ì programmi incontrati, vi sua 
lizzandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
i nomi dei programmi e la relativa posi- 
zione del contanastro (sottrarre tre o 
quattro unità dal valore corrispondente 
al l'apparizione del messaggio 
FOUND...). 

Digger versione per VIC 20 

4097 
41 03 
4109 
41 1 5 
4121 
41 27 
41 33 
4139 
4145 
41 51 
41 57 
4163 
41 69 
4175 
41 81 
41 87 
4193 
4199 
4205 
421 1 
421 7 
4223 
4229 
4235 
4241 
424 ? 

4253 
4259 
4265 
4271 
4277 
4283 


Gli abbonati alla sola rivista, sempre 
con riferimento alla versione per C64. 
dovranno invece usare il programma 
MLX {vedere nelle pagine verdi) per di- 
gitare il listato in linguaggio macchina. 
La procedura da seguire, in questo ca 
so, è: caricare in memoria MLX (che 
sarà stato precedentemente digitato e 
salvato) e rispondere alle sue richieste 
circa gli indirizzi iniziale e finale con: 

indirizzo iniziale: 49152 
indirizzo finale : 52187 

Dopo aver digitato e salvato il program- 
ma tramite MLX si potranno seguire 
per il caricamento le istruzioni date più 
sopra per i possessori di cassetta. 

Per quanto riguarda la versione per 
VIC 20 il programma “gira" solo sul 
VIC inespanso, quindi occorre disinseri- 
re qualunque eventuale espansione di 
memoria. 

“Digger'' per VIC 20, pur essendo total- 
mente in linguaggio macchina, sì carica 
e si manda in esecuzione come un qual- 
siasi programma BASIC, con LGAD se- 
guito da RUN, 

I possessori di VIC 20 abbonati alla sola 


rivista dovranno usare il programma 
MLX (vedere nelle pagine verdi) per di- 
gitare il listato in linguaggio macchina. 
La procedura da seguire, in questo ca- 
so, è la seguente: 

L Spegnere il computer ed inserire 
un'espansione dì memoria da almeno 8 
Kbyte, 

2. Accedere il computer e digitare in 
modo diretto le seguenti istruzioni: 

POKE 36869,240; POKE 36866.PEEK 
(36866) OR 128 

POKE 648,30 : POKE 44,32 : POKE 
32'256,0:CLR 

3. Caricare in memoria MLX per VIC 
20 (che sarà stato precedentemente di- 
gitato e salvato) e rispondere alle sue 
richieste circa gli indirizzi iniziale e finale 
con: 

indirizzo iniziale: 4097 
indirizzo finale : 7684 

Dopo avere digitato e salvato il pro- 
gramma tramite MLX si potranno segui- 
re per il caricamento le istruzioni date 
più sopra per i possessori dì cassetta. 


: 01 1 , 016 , 001 , 000 , 1 58 # 052,239 
: 049 , 049 , 048 , 000 , 000 , 000,1 53 
: 00 0 , 076 , 22 8 , 02 5 , 169, 1 43,14 2 
: 1 41 ,01 S ,1 44,1 69,2 55 , 141 ,116 
: 005 , 1 44 , 1 69 , 1 1 1,1 41 ,01 4,097 
: 144 , 162 , 000 , 169, 031 , 157,1 82 
: 00 0 , 0 3 0,1 6 9,00 3,1 57,00 0, 1 40 
: 1 50,2 32,2 2 4 , 066 , 208,241 ,140 
: 162 , 000 , 169 , 030 , 157 , 066, 121 
: 030,1 57 , 000,031 , 1 69 , 008,194 
: 1 57 , 066 , 150, 1 57 , 00 0,1 51 ,230 
: 2 32 , 208 , 2 37 , 2 3 4, 1 6 2 , 000, 1 1 6 
: 1 73,04 0,1 4 5,2 01 , 022,1 76,062 
: 249 , 16 0 , 00 0,21 7,0 60,00 3,000 
: 240 , 242 , 200 , 1 92 , 007 , 208,1 50 
: 246,1 57 , 060 , 003 , 232 , 224,245 
: 006 , 2 08 , 2 2 9,1 62,00 0, 1 73,1 07 
: 04 0 , 145, 201 ,01 9,1 76 , 249,165 
: 1 60 , 000,21 7 , 067 , 003 , 240,028 
: 24 2 , 200,1 92 , 007 , 208 , 246,1 86 
:1 57,0 67,00 3,23 2,2 24 , 006,04 2 
: 2 08 , 22 9, 0 96 , 2 3 4 , 2 3 4 , 2 34, 0 82 
: 162 , 000 , 1 88 , 067 , 003 , 1 85,226 
: 000, 01 7,1 33,001 , 1 B 5 , 020, 239 
: 01 7,1 33 , 002,1 88 , 060 , 003,036 
: 1 69 , 000, 1 45, 001 , 165 , 002,1 21 
: 024,1 0 5,1 20,1 33,00 2 , 169,1 98 
: 00 8, 14 5,001 , 232 , 224 , 003,008 
: 208 , 220 , 230 , 247 , 165 , 247, 206 
: 201 , 002 , 1 44 , 004,1 69 , 000,1 83 
: 133,24 7 , 162,00 0, 1 89 , 046,1 90 
: 01 7 , 208 , 036,1 88 , 070 , 003,1 97 


4289 

:1 85 

,000 

,01 7 

,133 

,001 

,185 

,202 

4295 

; 0 20 

,017 

,133 

,002 

,188 

,063 

,110 

4301 

: 003 

,189 

,043 

,01 7 

,024 

,101 

,070 

4 307 

: 247 

,145 

,001 

,165 

,002 

,024 

,027 

431 3 

: 105 

,120 

, 1 33 

,00 2 

,189 

,040 

,038 

4319 

: 01 7 

,145 

,001 

,232 

,224 

,003 

,077 

4325 

: 208 

,21 0 

,173 

,049 

,017 

,208 

,070 

4331 

: 01 0 

,169 

,010 

,133 

,000 

,032 

,077 

4337 

: 000 

,01 8 

,032 

,1 33 

,018 

,076 

,006 

4343 

: 1 79 

,01 8 

,169 

,224 

,141 

,049 

,003 

4349 

: 01 7 

,096 

,234 

,066 

,088 

,110 

,096 

4355 

: 1 32 

,154 

,176 

,198 

,220 

,242 

,101 

4361 

: 008 

,030 

,0 52 

,074 

,096 

,118 

,131 

4367 

: 1 40 

,162 

,184 

,206 

,228 

,030 

,197 

4373 

: 030 

,030 

,030 

,030 

,030 

,030 

,201 

4379 

: 030 

,030 

,031 

,031 

,031 

,031 

,21 1 

4 38 5 

: 031 

,031 

,031 

,031 

,031 

,031 

,21 9 

4391 

: 031 

,001 

,003 

,005 

,003 

,003 

,085 

4397 

: 003 

,000 

,000 

,000 

,000 

,000 

,048 

4403 

: 251 

,251 

,251 

,01 6 

,016 

,016 

,084 

4409 

: 000 

,000 

,000 

,000 

,000 

,000 

,057 

4415 

: 032 

,032 

,032 

,032 

,032 

,032 

,255 

4421 

: 032 

,033 

,035 

,032 

,000 

,051 

,252 

4427 

: 01 8 

,051 

,179 

,059 

,247 

,204 

,065 

4433 

: 238 

,21 2 

,206 

,174 

,197 

,172 

,000 

4439 

: 204 

,237 

,092 

,204 

,202 

,172 

,174 

444 5 

: 204 

,180 

,232 

,204 

,236 

,093 

,21 8 

4451 

: 072 

,192 

,205 

,076 

,146 

, 1 04 

,126 

4457 

:1 96 

,200 

,206 

,092 

, 1 98 

,216 

,189 

4463 

: 204 

,050 

,134 

,053 

,171 

,118 

,073 

4469 

: 1 19 

,051 

,224 

,051 

,005 

,019 

,074 

4475 

: 01 1 

,051 

,243 

,050 

,195 

,179 

,084 

4481 

: 031 

,187 

,059 

, 162 

,242 

,049 

,091 

4487 

: 01 0 

,034 

, 03 O 

,055 

,145 

,113 

,010 
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4493 
4499 
4505 
451 1 
451 7 
4523 
4529 
4535 
4541 
4547 
4553 
4559 
4 56 5 
4571 
4577 
4583 
4589 
4595 
4601 
4607 
4613 
461 9 
4625 
4631 
4637 
4643 
4649 
4 6 55 
4661 
4667 
4673 
4679 
4685 
4691 
4697 
4703 
4709 
471 5 
4721 
4727 
4733 
4739 
4745 
4751 
4757 
4763 
4769 
4 77 5 
4781 
4787 
4793 
4799 
4805 
481 1 
4817 
4823 
4829 


: 08 3 , 058 , 0 49 , 09 4 , 207 , 1 96 r 060 
:1 39 , 076 , 076, 1 40 , 200 , 1 05 , 1 1 5 
= 132 , 236 , 196 , 143 , 220 , 085, 141 
: 076 , 206 , 204, 1 40 , 076,1 40,233 
; 207 , 238 , 235 , 204,1 40 , 220, 1 2 9 
: 20 5, 2 04, 20 6 , 1 40 , 072, 1 1 5,089 
= 023 , 147 , 053 , 049 , 131 , 055,123 
: 205, 0 50 , 193,1 14 , 066,1 77,220 
: 1 01 ,01 9,1 79 , 063,1 33,051 ,223 
: T 22 , 098 , 181 , 115 , 00 2 , 051, 2 52 
: 1 69 , 055 , 063,091 , 1 07 , 035,209 
: 042,1 96 , 036 , 079 , 204,201 ,1 97 
: 200 , 204, 1 40 , 236,20 4 , 092,00 9 
; 209 , 204 , 204 , 204 , 204 , 204,1 68 
: 233 , 205 , 220 , 205 , 1 36 , 234,1 78 
: 232 , 094, 1 32 , 204,1 94,1 4 0,203 
: 23 6 , 2 04 , 20 6, 0 50,1 1 5,0 50,07 4 
: 023 , 0 35,01 9,1 1 9,14 7 , 039,1 13 
:1 79,05 8 , 059,0 4 9,2 30 , 243,043 
: 24 0, 1 7 3 , 066,00 3, 1 41 , 080,1 90 
; 003,1 73 , 073 , 003,1 41 ,081 ,223 
: 003 , 1 69 , 1 27 , 1 41 , 034 , 1 45,118 
: 1 73,0 3 2,1 4 5,041 ,1 2 8,20 8,232 
: 02 5,1 69,01 4,1 33 , 000 , 238,090 
: 080, 00 3,1 73,0 80,00 3,201 ,0 57 
: 022 , 208 , 003 , 206 , 080 , 003,04 5 
: 1 69 , 255,1 41 , 034,1 45 , 076,093 
: 1 32,01 8,1 6 9 , 255,1 41 , 034,028 
: 1 4 5 , 1 73 ,01 7, 1 4 5 ,041 ,01 6,078 
: 20 8 , 020,1 6 9,01 2,1 33 , 000,089 
: 206 , 080 , 003,1 73 , 080 , 003,098 
: 20 1 , 255 , 208 , 003 , 238 , 080,032 
: 00 3, 0 76,1 32,01 8, 1 7 3,01 7,240 
: 145,041 ,00 8 , 208 , 020 , 169,1 62 
: Gì 6,1 33, 0 00, 23 8 , OS 1 , 003,04 8 
: 1 73,081 , 003 , 201 , 020,20 8,01 3 
: 003 , 206, 081 , 003 , 076,1 32,090 
: 01 8 , 1 7 3,01 7,1 45,041 , 004,249 
: 20 8,01 7,1 69,01 8,1 33 , 000,1 4 6 
: 206, 081 , 003,1 73,081 ,00 3,1 54 
: 201 ,25 5,2 08,00 3,23 8,081 ,087 
: 00 3 , 096 , 2 38 , 050, 01 7,1 73,1 96 
: 050 , 01 7,201 , 002 , 1 44 , 005 ,044 
: 1 69 , 000,1 41 , 050,01 7,1 72,1 80 
: 08 1 , 003,1 85 , 000,01 7,1 33,056 
: 001 ,1 8 5 , 020,01 7,1 33 , 002,001 
: 1 72 , 080,00 3, 1 77,001 ,201 ,027 
: 02 8,1 76 , 005 , 096,2 34 , 234,1 72 
: 23 4 , 2 34, 03 2,21 7,01 8 , 096,236 
: 1 7 2,0 73 , 00 3 , 1 8 5 , 000 ,01 7,1 1 7 
: 13 3,001 ,1 85 , 020,01 7,1 33,1 62 
: 00 2,1 72 , 066 , 003, 1 65 , 000,087 
: 02 4,1 09 , 050,01 7,1 4 5,001 ,031 
;1 65 , 002 , 024, 1 05,1 20, 1 33,240 
: 002,1 69 , 008,1 4 5,001 , 076,098 
:2 50,01 8, 1 72 , 07 3 , 003, 1 85,148 
: 000, 01 7,1 33,001 ,1 85 , 020,065 


483 5 : 01 7,1 33 , 002 , 172 , 066 , 003,108 
4841 : 169 , 029, 1 45, 00 1 ,1 73 , 080, 062 

4847 : 003, 141 , 066 , 003,1 73,081 ,1 94 
4853 : 00 3,1 41 , 073 , 003 , 096 , 160, 209 
4859 = 000 , 162 , 000 , 232 , 208 , 253,082 
4865 : 200 , 192 , 064,20 8 , 246,1 62,04 9 
4871 : 000, 1 88 , 067 , 003 , 200, 1 92,145 

4 8 77 : 020, 24 0 , 042,1 85 , 000,01 7,005 
4 8 83 : 133, 001 ,1 85 , 020,01 7,1 33,2 52 
4 8 89 : 002, 1 8 8 , 060,00 3,1 77,001 ,20 0 
4895 : 201 , 030 , 208,01 8,1 69,251 , 1 40 
4901 : 1 57 , 051 , 01 7 , 076 , 058 , 01 9, 1 59 

4907 ; 068 , 073, 071 ,071 , 069 , 082,221 
491 3 : 23 4 , 076 , 058, 01 9 , 169 , 255,092 
491 9 : 1 57 , 057 , 01 7 , 232 , 224 , 003,233 
49 2 5 : 208 ,201 ,1 62 , 000 ,1 89 , 057,1 1 0 
49 31 : 01 7 , 240 , 088, 1 89 , 054,01 7,1 60 

49 37 : 240, 0 06 , 234 , 2 22, 0 54 , DI 7,078 
494 3 : 208 , 077, 1 88 , 067 , 003 , 200,0 54 
4949 ; 1 92 , 020 , 240 , 054 , 1 85 , 000,008 

49 55 : 01 7,1 3 3,001 ,1 8 5 , 020,01 7,208 

4961 : 1 33,00 2,1 8 8 , 060,00 3,1 77, 1 4 8 

4967 : 001 , 20 1 , 03 0 , 240 , 035 , 188, 030 
497 3 : 06 7 , 00 3,1 85 , 000,01 7,1 33,002 
4 979 : 001 , 1 8 5 , 020,01 7, 1 33 , 002,21 7 
4 98 5 : 1 88 , 060 , 003 , 169 , 029 , 1 45,203 
4991 : 001 , 254,06 7,00 3,1 89,051 , 1 80 

4 99 7 : 01 7,1 41 ,01 2 , 144 , 222,051 ,208 
500 3 : 01 7,0 76, 1 58, 01 9, 1 69 , 000,066 

50 09 :! 57 , 057 , 017 , 169 , 016 , 157 , 20 6 

50 15 : 0 54 , 017 , 169 , 255, 141 , 060,079 
5021 : 01 7 , 232 , 224 , 003 , 208 , 1 58,231 

5027 : 1 62,00 0, 1 8 9 , 057,01 7,201 ,021 
5033 : 255 , 240, 01 0 , 232 , 224 , 00 3, 109 
50 39 : 20 8, 24 4,1 69 , 000,1 41 ,01 2,1 81 
50 45 : 1 44 , 032 , 074,02 2,0 76 , 223,24 0 
5051 : 01 9 , 1 69 , 005 , 1 57 , 043 , 01 7,085 

5057 : 0 76 , 223 , 020 , 169 , 003 , 157,073 
50 63 : 043, 01 7 , 076 , 223 , 020 , 234,044 
50 69 : 234 , 2 34 , 234 , 234 , 234 , 234, 073 
50 7 5 : 234 , 234 , 234 , 234 , 234 , 234,079 
5081 = 234 , 234 , 234 , 234 , 234 , 234,085 

50 8 7 : 1 62 , 000,1 89 , 060 , 003 , 205,074 
5093 = 066 , 003 , 208 , 011 , 189 , 067,005 
5099 = 003 , 205 , 073 , 003 , 208 , 003,218 

51 0 5 = 076, 1 89 , 023 , 232 , 224 , 003,220 

51 1 1 : 20 8 , 2 3 2 , 076 , 025 , 020,1 52,1 92 

51 1 7 = 072 , 138 , 072 , 162 , 004 , 254,187 
51 23 = 062 , 017 , 189 , 06 2 , 017 , 20 1,039 
51 29 : 042 ,20 8 , 008 , 1 69 , 032 , 1 57, 1 1 3 
5135 = 062 , 017 , 202 , 208 , 238 , 104,078 
5141 = 1 70 , 1 04 , 1 68 , 096 , 1 73 , 060,024 

5147 = 01 7 , 240 , 026 , 206 , 060 , 01 7,081 
51 53 : 1 73 , 060,01 7,201 , 252 , 240, 208 
5159 =0 08 , 169 , 2 24 , 141 , 013 , 144, 226 
5165 : 076 , 056 , 020,1 69 , 000,1 41 ,2 51 
51 71 = 013 , 144, 141 , 060 , 017 , 234, 148 
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5861 : 0 31 , 20 0 , 208 , 221 , 096 , 162, 123 

58 67 : 000 , 1 89,04 6,01 7 , 240 , 032,247 

5873 : 201 , 255,24 0,02 8 , 234 , 1 88, 107 
5879 : 070, 00 3,1 85 , 000,01 7 , 1 33,143 
588 5 : 001 ,1 8 5,0 20,01 7, 1 33 , 002,099 
5891 : 1 88 , 063 , 003 , 1 89 , 046 , 01 7,253 

5897 : 074 , 074,2 3 4 , 024 , 1 05,0 07,01 5 
5903 : 1 45,001 , 23 2, 2 24 , 00 3,20 8,0 60 
5909 : 214 , 173 , 049 , 017 , 240 , 025,227 
591 5 : 1 73 , 049, 01 7 , 201 , 2 25 , 1 76 , 1 00 
5921 : 01 8 , 206,04 9,01 7,1 73,04 9,033 

59 2 7 : 01 7,201 , 222 , 208 , 008 , 032,215 
593 3 : 196, 0 2 2, 1 69 , 000, 1 41 , 049,1 10 
59 3 9 : 01 7 , 2 34, 1 73 , 04 9, 01 7,20 8,237 
59 4 5 : 021 , 162 , 000,1 89 , 046,01 7,236 

59 51 : 240, 01 3,201 , 255 , 240 , 009,253 

5957 : 165, 1 62, 1 97, 1 61 ,1 76 , 003,1 65 
596 3 : 222 , 046,01 7 , 232 , 224,00 3,051 

596 9 : 208 , 233, 1 62 , 000, 1 89 , 046,1 51 

597 5 : 01 7,201 , 255 , 208 , 008 , 232,240 

5981 : 224 , 003 , 208 , 24 4 , 076 , 233, 057 

598 7 : 0 2 3,1 6 2 , 000,1 89,0 6 3,01 7,041 

5993 : 20 1 , 032 , 240 , 003 , 076,1 1 7,006 
5999 i 023 , 2 32 , 224 , 004 , 208 , 241 ,019 
600 5 : 157,0 04,0 30,2 32,1 89 , 063,024 
6011 : 01 7 , 224 , 005 , 208 , 245 , 162,216 

601 7 : 000,1 89,04 6,01 7 , 201 , 255,069 
602 3 : 2 08, 00 5 , 169, 02 6 , 157 , 022, 210 
602 9 : 030 , 2 32 , 22 4 , 00 3 , 208 , 2 39, 05 3 
6035 : 076 , 236 , 025 , 1 89 , 046 , 01 7,224 
6041 : 208 , 033,1 88 , 070 , 003 , 185,072 

604 7 : 000 , 01 7,1 33 , 001 , 185 , 020,003 

60 53 : 01 7 , 1 33 , 002,1 88 , 063 , 003,059 

60 59 :1 89,04 3,01 7,1 4 5 , 001 , 165,21 9 
6065 = 002 , 024 , 105 , 1 20 , 1 33 , 002,051 
6071 =1 89 , 040,01 7 , 145,001 , 096,1 59 

607 7 : 1 69 , 000,141 ,01 2 , 144,141 ,028 

60 83 = 013 , 144 , 169 , 255 , 141 , 01 1 , 1 60 

6089 = 1 44 , 1 62 , 01 6 , 1 60 , 000 , 1 36,051 
6095 = 208 , 253 , 202 , 208 , 248 , 206,252 
6101 = 01 1 , 144 , 1 73 , 01 1 , 144 , 201 ,1 29 

6107 = 144 , 208 , 236 , 169 , 000 , 141,093 
6113 = 011 , 144 , 076 , 014 , 016 , 234,208 
6119 = 234 , 2 34, 1 69 , 000, 1 41 , 01 2, 253 

61 2 5 : 1 44,1 41 , 01 3,1 44,1 62 , 000,073 

6131 : 1 88 , 067 , 003,1 85 , 000,01 7,191 

61 37 = 1 33 , 001 , 1 85 , 020 , 01 7 , 1 33,226 
61 43 = 002 , 188 , 060 , 003 , 169 , 000,165 
6149 = 145 , 001 , 165 , 002 , 02 4 , 105, 191 
61 55 = 120 , 133 , 002 , 169 , 008 , 145,076 
6161 = 001 , 234 , 234 , 234 , 234 , 234,164 

61 67 = 232 , 224 , 003 , 208 , 21 5 , 1 60,041 
61 73 = 000 , 169 , 026 , 1 53 , 022 , 030,1 73 
6179 = 200 , 1 92 , 003 , 208 , 248 , 1 69,031 
6185 = 240 , 141 , 01 0 , 144 , 169 , 20 7, 184 
6191 = 141 , 011 , 144 , 169 , 175 , 141 , 06 0 

61 97 = 012 , 144 , 162 , 010 , 032 , 252,153 


6203 = 019 , 202 , 208 , 250 , 162 , 000,132 
6209 = 160 , 000 , 1 36 , 208 , 253 , 202,000 
6215 = 208 , 248 , 162 , 000 , 169 , 000,090 
6221 = 157 , 046 , 017 , 232 , 224 , 003,244 
6227 = 208 , 248 , 173 , 073 , 01 7 , 201 ,235 
6233 = 021 , 240 , 003 , 238 , 073 , 017,169 
6239 = 169 , 000 , 141 , 010 , 144 , 141,188 
624 5 : 01 1 ,1 44 , 1 41 ,01 2,1 44 , 234,01 9 
6251 = 234 , 234 , 234 , 234 , 234 , 234,231 
6257 = 169 , 000 , 1 41 , 060 , 01 7 , 032,020 
6263 = 01 7 , 016 , 032 , 1 63 , 024 , 076, 1 91 
6269 = 133 , 016 , 002 , 187 , 071 , 227,249 
6275 = 169 , 000 , 1 41 , 073 , 01 7 , 1 62 , 1 81 
6281 = 000 , 169 , 032 , 157 , 063 , 017,063 
6287 = 232 , 224 , 005 , 208 , 246 , 169,203 
6293 = 000 , 141 , 049 , 017 , 162 , 000,006 
6299 = 157 , 046 , 017 , 232 , 224 , 003,066 
6305 = 208 , 248 , 169 , 020 , 141 , 000,179 
6311 = 030 , 169 , 021 , 141 , 001 , 030,047 
6317 = 169 , 022 , 141 , 002 , 030 , 169,194 
6323 = 023 , 141 , 003 , 030 , 169 , 024,057 
6329 = 141 , 011 , 030 , 169 , 025 , 141,190 
6335 = 01 2 , 030 , 1 69 , 000 , MI , 073,1 04 
6341 = 003 , 169 , 01 1 , 141 , 066 , 003,078 
6347 = 162 , 000 , 189 , 063 , 0 ! 7 , 221 ,087 
6353 = 068 , 017 , 240 , 005 , 144 , 024,195 
6359 = 076 , 226 , 024 , 232 , 224 , 005,234 
6365 = 208 , 238 , 076 , 239 , 024 , 162,144 
6371 = 000 , 189 , 063 , 01 7 , 157 , 068,209 
6377 = 017 , 232 , 224 , 005 , 208 , 245,140 
6383 = 162 , 000 , 189 , 068 , 017 , 201 ,108 
6389 = 032 , 240 , 003 , 076 , 000 , 025,109 
6395 = 232 , 224 , 004 , 208 , 241 , 1 57,037 
6401 = 014 , 030 , 232 , 189 , 068 , 017,039 
6407 = 224 , 005 , 208 , 245 , 1 74 , 073,168 
641 3 = 017 , 240 , 009 , 169 , 027 , 157,120 
6419 = 043 , 030 , 202 , 076 , 01 4 , 025,1 53 
64 2 5 = 096, 16 2 , 000 , 169 , 032,1 41 ,1 1 3 
6431 = 042 , 025 , 169 , 027 , 157 , 043,238 
6437 = 030 , 202 , 076 , 006 , 025 , 096,216 
6443 = 032 , 01 7 , 01 6 , 032 , 131 , 024, 039 
6449 = 076 , 133 , 01 6 , 032 , 01 7 , 01 6,083 
6455 = 076 , 130 , 025 , 071 , 025 , 168,038 
6461 = 169 , 029 , 153 , 066 , 030 , 202,198 
6467 = 208 , 244 , 076 , 130 , 025 , 000,238 
6473 = 001 , 004 , 006 , 007 , 008 , 010, 1 09 
6479 = 011 , 01 2 , 014 , 015 , 016 , 00 2, 149 
6485 = 01 9 , 020 , 022 , 024 , 026 , 028,224 
6491 = 032 , 036 , 040 , 042 , 044 , 046,075 
6497 = 048 , 050 , 052 , 054 , 056 , 058,159 
6503 = 059 , 062 , 063 , 066 , 068 , 070,235 
6509 = 072 , 074 , 076 , 078 , 080 , 084,061 
651 5 = 086 , 088 , 089 , 092 , 094 , 095,147 
6521 = 096 , 098 , 099 , 100 , 1 02 , 103,207 
6 52 7 = 104 , 106,1 09 , 169 , 000,1 41 ,24 4 
6533 = 155 , 002 , 174 , 1 55 , 002 , 1 89,042 
6539 = 000 , 026 , 1 41 , 01 2 , 1 44 , 1 89,1 39 
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6 54 5 : 06 5, 0 26,1 41 , 01 1 , 1 44,0 3 2,052 
6551 : 000, 0 27 , 234 , 234 , 234 , 234,090 

6557 : 234 , 2 34 , 234 , 238 , 155 , 00 2, 2 30 
6563 : ì 69 , 064 , 205 , 1 55 , 002 , 208, 1 98 
6569 : 2 2 1 , 141, 011 , 144 , 141 , 012, 071 
657 5 : 1 44,0 76 , 050 , 027,041 , 032,033 
6581 : 208 , 203 , 076 , 043 , 025 , 002, 226 

6 587 : 053,1 60 , 057,01 9 , 049,1 69, 1 82 
6593 : 001 , 162 , 001 , 160 , 255 , 032,036 
6599 : 1 86 , 255 , 169 , 006 , 162 , 043,252 
6605 : 160 , 01 9 , 03 2 , 189 , 2 55 , 169, 00 5 
6611 : 000 , 133,001 , 169 , 016 , 133, 151 

661 7 : 002,1 6 9,001 , 1 6 2 , 000,1 60,1 99 
6623 : 0 30 , 032 , 21 6 , 255 , 096 , 169,253 
6629 : 1 27 , 1 41 , 030 , 1 45 , 076 , 052,032 

663 5 : 02 5,1 62 , 000,1 8 9 , 067 , 003,1 69 

6641 ; 201 , 01 9 , 208 , 008 , 232 , 224,1 09 

664 7 : 00 3, 2 0 8 , 24 4, 0 7 6, 01 4,01 6,040 

66 53 : 07 6,1 33,01 6 , 002 , 235 , 237,1 84 
6659 : 235 , 23 1 , 235 , 237 , 235 , 231, 127 
66 65 : 235 , 237 , 23 5, 231 , 228 , 2 27, 1 22 
66 71 : 223, 21 9, 231 , 235, 231 , 228, 1 02 

6677 : 235 , 231 , 228 , 223 , 228 , 235, 121 
6683 : 2 3 1 , 235 , 2 35, 231 , 000, 231 , 1 66 

66 89 ; 235 , 237 , 235, 2 31 ,2 35 , 237,1 63 

6695 : 235, 231 , 235 , 2 37 , 235, 231 , 1 63 
6701 : 228 , 227 , 223 , 219 , 000 , 215, 133 

67 0 7 : 21 2,21 5,21 9,2 2 3,21 9,21 5,074 

6713 : 223 , 219 , 000 , 219 , 000 , 219, 169 
6719 : 2 1 9 , 000 , 000 , 000 , 235 , 000, 005 
67 2 5 : 207, 00 0,23 5 , 000 , 207 , 000,206 
6731 : 235 , 000 , 207 , 000 , 235 , 00 0,240 

6737 : 2 07 , 23 5, 21 5 , 000 , 201 , 000,171 
6743 : 21 5 , 000 , 201 , 000 , 215 , 000,206 
6749 : 20 1 , 000 , 215 , 000 , 201 , 215,157 
67 55 : 235 , 000 , 207 , 000, 1 83 , 000,21 2 
67 61 : 2 07 , 000,1 8 3 , 000 , 207 , 000,190 

6767 : 1 83 , 000 , 207 , 000 , 21 5 , 000,204 
6773 : 2 0 1 , 000, 21 5 , 000, 201 , 000, 222 
6779 : 1 83 , 000,2 0 7 , 000 , 235 , 000,236 
6785 : 0 0 1 , 023 , 045 , 067 , 089 , 090 , 18 8 

67 91 : 06 9 , 04 7 , 02 5, 0 0 2, 0 0 7, 0 29, 0 58 

6797 : 051 , 073 , 095 , 096 , 097 , 075,1 1 6 
680 3 : 053 , 008 , 009, 01 1 , 033 , 055,060 
6809 : 077 , 099,1 00,1 01 , 079 , 057,1 54 
6815 i 01 2 , 01 3 , 01 5 , 037 , 059 , 060,099 
6821 : 0 81 , 103 , 104 , 105 , 016 , 017, 079 

6827 : 01 9 , 04 1 , 063 , 085 , 107 , 109, 08 3 
6833 : 087 , 064 , 043 , 021 , 020 , 005,161 
6839 : 027 , 049 , 071 , 093 , 1 15 , 1 15,141 
6845 : 115 , 115 , 115 , 115 , 234 , 234, 093 

68 51 : 23 4 , 2 34 , 23 4 , 2 3 4 , 2 34 , 2 34, 063 

6 8 57 : 234 , 234 , 234 , 234 , - 234 , 234, 069 
6863 : 234 , 234 , 234 , 234 , 234 , 234, 075 
6869 ; 234 , 234 , 234 , 234 , 234 , 234,081 
687 5 : 23 4 , 2 34 , 2 34 , 2 3 4 , 2 3 4 , 2 34, 0 87 
68 81 : 234 , 234 , 234 , 23 4 , 2 34 , 234, 0 93 


6887 : 2 34 , 2 34 , 234 , 234 , 2 34 , 2 34, 09 9 
6893 : 234 , 234 , 234 , 23 4 , 234 , 2 34, 105 
6899 : 234 , 2 34 , 2 3 4 , 2 3 4 , 2 34 , 2 34,1 1 1 

690 5 : 234 , 234 , 234 , 234,2 34,2 34,1 1 7 

691 1 : 23 4,1 89,1 29 , 026,1 68,1 69,1 46 

6917 : 048, 1 33, 1 48, 1 69, 01 6 , 153, 160 
6923 : 066 , 030 , 162 , 000 , 202 , 208, 167 
6929 : 2 53, 1 9 8, 1 4 8, 1 65, 1 48 , 208, 1 1 3 
6935 : 245 , 169 , 017 , 153 , 066 , 030,1 91 
69 41 : 1 69 , 048, 1 33 , 1 48, 1 62 , 000, 1 77 
694 7 : 202 , 208 , 253, 1 98, 1 48, 1 65,1 85 
6953 : 148 , 208 , 245,1 69 , 029,1 53,225 
69 59 : 066 , 030 , 096,1 69,01 6, 1 41 , 053 
6965 : 1 81 , 030, 1 62 , 000, 1 89, 1 82, 029 

69 71 : 026,1 68, 1 69 , 000,1 53 , 066,1 2 9 

6977 : 030 , 1 69 , 048 , 1 33 , 148 , 1 60,241 

6 983 : 000, 1 3 6,20 8,2 53,1 9 8 , 1 4 8,246 
6989 : 1 65, 1 48 , 20 8 , 245, 1 89, 1 82, 1 90 

699 5 : 026 , 1 68 , 169 , 029,1 53 , 066,1 82 
7001 : 030 , 232 , 224 , 006 , 2 08 , 21 8,239 

700 7 : 169 , 000, 141 ,1 81 , 030,1 69,01 7 
7013 : 200 , 141 , 013 , 144 , 162 , 00 0,24 9 

701 9 : 1 60 , 000 , 200 , 20 8 , 2 53 , 232,1 36 

702 5 : 208 , 248,1 69 , 000,1 41 , 01 3,1 24 

7031 : 1 44 , 076 , 043 , 025 , 063 , 002 , 21 6 

7037 : Q 49 , 183 , 121 , 05 1 , 04 2 , 179, 2 38 
7043 : 114 , 049,101 ,201 , 052 , 075,211 

70 49 : 1 76 , 055 , 005 , 235,1 57,1 54,1 51 
7055 : 048 , 204 , 109 , 204 , 206 , 206, 096 

7 061 : 2 36, 1 99, 1 4 0,1 9 4, 1 6 0,2 0 4, 002 

70 67 : 1 38 , 20 4 , 234 , 207, 01 0 , 20 7,1 31 
7073 : 2 2 1 , 199 , 077 , 206 , 2 06 , 204, 250 
7079 : 1 03 , 237 , 1 1 0 , 200 , 254 , 204,2 51 
7085 : 240 , 216 , 110 , 115 , 254 , 125, 209 

70 91 : 06 1 , 1 1 9 , 038 , 226 , 056 , 049, 21 6 

7097 : 049 , 02 1 , 1 91 , 004 , 058 , 1 87,1 83 
7103 : 051 , 003 , 147 , 150 , 056 , 043, 129 

71 0 9 : 1 77 , 179 , 079 , 21 5,1 82 , 083,088 

71 1 5 : 1 90,1 61 , 1 23,1 35,1 43 , 223,1 54 
71 21 ; 044 , 204 , 09 5 , 20 4 , 096 , 204, 0 32 

71 27 : 21 6,1 96 , 207 , 206,1 56,1 99,1 1 5 
7133 ; 20 4 , 2 3 5,1 56,20 4,1 0 6, 1 97,04 3 
7139 ; 1 8 4 , 069 , 222 , 204 , 142 , 222, 246 
71 4 5 : 2 30 , 206 , 20 5 , 20 4 , 02 8 , 2 24, 0 50 
71 51 : 245, 031 , 0 54, 251 , 051 , 24 3, 0 90 

7157 : 043 , 019 , 104 , 225 , 056 , 033, 213 
7163 ; 050 , 088 , 050 , 055 , 099 , 065, 146 
71 69 : 000 , 000,1 2 8 , 1 2 8,1 62,1 70,07 7 
7175 : 105 , 000 , 000 , 032 , 080 , 136, 104 
7181 ; 005 , 002 , 000 , 008 , 004 , 002, 034 

71 87 : 004 , 008, 01 6 , 032,01 6 , 000,095 
71 93 : 01 6 , 096 , 226, 1 8 8 , 062 , 067,1 68 
71 99 : 1 29 , 000 , 01 6 , 096 , 226 , 1 88,1 74 
7205 ; 062 , 034 , 036 , 00 0 , 00 8 , 006, 183 
7211 ; 069 , 06 1 , 124, 1 94 , 129, 0 00, 108 

721 7 : 008 , 006 , 069, 061 , 1 24 , 068,1 29 
7 2 23 : 036 , 000 , 008 , 006, 01 5 , 029,1 49 


SURÉRtOMMODORE® 8/8S - 33 



7229 :0 60, 242, 121, 000 ,024, 060, 
7235 :126, 126, 060, 024, 000, 024, 
7241 :126, 126,255, 255, 126, 126, 

7247 : 024, 040, 020, 020, 255,255, 
7253 : 1 25,060,040,040,020,020, 
72 59 : 255,2 5 5,1 2 5,0 60,040,01 0, 
7265 :006, 006,01 5,01 5,01 3,003, 
72 71 : 01 0,01 0,006,00 6, 01 5,063 , 

7277 :055,1 63,01 0, 1 60, 1 44, 1 44, 
72 8 3 : 240, 240 , 1 1 2 , 1 92 , 1 60 , 1 60, 
7289 : 1 44,1 44,240,252,220,202, 
7295 : 1 60,040,020,020,255,255 , 
7301 3 125, 056, 032, 040, 020, 020, 

7307 :255, 255,1 25,044,008,040, 
731 3 : 04 0,040, 255, 255, 1 25,04 4 , 
7319 :0Q8, 040, 040, 040, 255,255, 
7325 : 1 25,056,032,255,255,248, 
7 331 : 24 7, 249, 254, 241, 2 55, 255, 

7337 :255, 1 98,1 89, 1 89, 1 89,1 98, 
7343 :255, 255, 255, 099,1 73, 1 63, 
7349 ; 1 71 , 1 09,255 ,2 55, 255,031 , 
7355 ;1 27,063 ,1 27,031 ,255,255, 
7361 :255,107,106, 010, 106, 107, 

7367 ;255,255,255,022,246,144, 
7373 ;214,022,255,255,247,249, 
7379 3240,226,195,013,134,243, 
7385 3224,204,224,211,191,127, 
7391 3127,040,040,040,040,040, 

7397 :040,040,040,000,000,000, 
7403 3000,000,000,000,000,068, 
7 40 9 : 01 7 , 0 68 , 01 7 , 068 , 01 7 , 068 , 
7415 3017,255,255,255,255,255, 
7421 3255,255,255,195,189,185, 

7427 3165,1 57,1 89,195,255,247, 
7433 :231 ,21 5,247,247,247,1 93, 
7439 :255,195,189,253,243,207, 
7445 :191,129,255,195,189,253, 
74 51 :227, 253, 1 89, 195, 255, 251 , 

7457 ;243,235,219,129,251,251, 
7463 : 255,1 29,1 91 , 1 35,251 , 253 , 
74 69 : 1 87, 1 9 9, 255, 227, 223, 1 91 , 
7475 :131,189,189,195,255,129, 
74 81 : 1 89,2 51 , 247,239,239,239, 

74 8 7 : 255, 1 95, 1 89 , 1 89, 1 9 5 , 1 89, 
7493 :189,195,255,195,189,189, 
7499 3193,253,251,199,255,255, 
7505 :000,000,003,076 ,000,000, 
751 1 : 000 ,01 1 ,01 5, 001 ,01 5,000, 

751 7 : 000, 0 00, 000, 000,1 4 3,000, 
7523 3000,096,000, 000 , 000,000 , 
7529 ;141,128,000,000,000,000, 
7535 ;000, 000,01 2,1 95,230, 1 22, 
7541 ;208,002,230, 1 23, 1 73,008, 

7547 :002,201,058,176,010,201, 
7553 ;032,240,239, 056, 233, 048, 
7559 3056,233,208,096,128,079, 
7 56 5 :199, 08 2, 088, 000, 255 ,000 , 

34 • SUPERCGMMOJXiRE® 


7 571 ; 0 00, OOP , 00 0 , 000 , 01 6, 00 0, 1 6 3 

7577 :000,003,000,000,1 28,000,028 
7 583 : 000, 0 00,1 0 5,1 3 5,000,000,1 43 
7589 ; 000,000,0 00 , 000,000,000,1 65 
7595 3000,000, 000,000,000,000,1 71 
7601 3000,060,003,000,000,000,240 

7607 3000,000,000,000, 000,000, 1 83 
7613 ; 000, 000, 000,00 0, 1 24,1 08,1 65 
7619 :000,029,015,000,000,007,246 
7625 3007, 006, 01 5, 001, 00 2, 032, 00 8 
76 31 : 000 ,021 , 1 54,030,007,000,1 63 

763 7 3 021 , 00 7,04 8,00 0,1 58,1 5 8,0 93 
76 4 3 :ì 5 8,1 5 8,1 58,1 5 8,1 58,1 58,1 43 

764 9 : 1 58,1 58,1 58,1 58 , 1 59,1 59,1 51 

7655 ; 1 59, 1 59, 1 59, 1 59, 1 59, 1 59, ì 61 
76 61 : 1 59,1 5 9,1 5 9 , 1 59,2 5 5, 00 0, 1 04 

7667 3154,150,094,236,000,000,109 
76 73 : 01 4,01 4,000,000,000,02 9,050 
7679 : 0 32, 01 3,01 3,01 3,01 3,255,08 2 



Diliger versione per C64 

49152 3076, 0 80 , 194 , 169, 1 27 , 141, 019 
49158 301 3 , 220 , 1 73 , 01 7 , 208 , 041 , 1 66 
491 64 : 1 27 , 1 41 ,01 7 , 208,1 69 , 035,1 97 
49170 : 141, 0 20 , 00 3 , 169 , 192 , 141, 172 
491 76 : 021 ,00 3,1 7 3 , 026 , 208 , 009,208 

491 82 ; 001 , 1 41 , 02 6 , 208 , 096, 1 69, 1 59 

49188 3001 , 1 41 , 025 , 208 , 1 62 , 093,1 54 

4 91 94 : 1 60 , 000,1 73,01 8 , 208,201 , 034 

49200 : 093 , 144 , 004 , 16 2 , 00 1 , 1 60,100 

492 0 6 ; 032 , 140 , 041 , 20 4 , 142, 01 8,119 
4 921 2 3 208 , 1 73 , 041 , 204 , 240 , 022,1 80 
49218 : 162 , 06 1 , 2 02 , 20 8 , 253 , 01 3, 197 
49224 : 01 7 , 208,1 41 , 01 7 , 208,1 69,064 
4 92 30 : 00 8, 01 3 , 02 4 , 20 8, 1 41 , 0 24, 240 


056 

1 71 

063 

1 81 

1 34 

068 

1 55 

21 3 

01 7 

1 95 

043 

1 09 

1 70 

098 

1 36 

021 

104 

1 28 

107 

095 

233 

021 

1 1 6 

096 

167 

238 

118 

038 

093 

047 

240 

00 3 

051 

1 87 

1 09 

077 

209 

1 1 7 

081 

229 

047 

1 1 5 

1 81 

251 

001 

201 

1 60 

1 29 

236 

1 95 

1 1 8 

1 58 

093 

003 

209 

1 67 

253 



4 92 36 : 208 , 076, 1 01 , 1 92,1 73,01 7,083 
49242 : 208, 041 , 22 3,1 41 , 01 7 , 208,1 60 
49248 : 1 69 , 021 , 141 , 024 , 208 , 169, 060 
492 54 : 001 , 1 41 , 026 , 208,1 73,01 3,1 52 
4926 0 : 220, 041 ,001 , 240 , 003 , 076,1 77 

492 66 : 049 , 2 34 , 076,1 88,2 54,1 6 9,0 60 
49272 : 000 , 141 , 1 31 , 205 , 1 73 , 030,032 
49278 : 208,1 41 , 1 1 9 , 205,041 ,001 , 07 3 
49284 : 240 , 005,1 69,001 , 1 41 , 1 31 , 051 
49290 : 205 , 162 , 000 , 189 , 009 , 208, 143 
49296 : 20 1 , 235 , 208,01 1 , 232 , 232,239 

493 02 : 224 , 007,1 44,243 , 1 69,001 ,1 70 
493 08 : 1 4 1 , 131 , 20 5 , 173 , 021 , 20 8, 011 
4 931 4 : 041 ,01 4 , 208 , 005,1 69 , 002,089 
49320 : 1 41 , 1 31 , 205 , 1 74 , 1 30 , 205,1 30 
49326 : 1 89 , 008 , 208 , 157 , 067 , 205,240 
4 9332 : 1 73,01 6 , 208,061 , 1 96,1 92,002 

493 38 : 240,01 3,1 69,001 , 1 57 , 068,066 
49344 : 205 , 076, 20 6, 1 92,01 6 , 000,1 1 9 
49350 : 032 , 000 , 064 , 1 69 , 000 , 1 57,1 08 
49356 : 068 , 205 , 056 , 189 , 067 , 205,226 
49 36 2 : 2 33, 01 6,1 57 , 067 , 205,1 89,053 
4936 8 : 068 , 20 5 , 2 3 3 , 000, 1 57 , 068,1 79 
49 3 74 : 205 , 056,1 89 , 009 , 208 , 233,098 
49380 : 03 5,1 57,0 8 3,20 5,1 73,21 7,074 

4938 6 : 203 , 072,1 73,21 8,2 03 , 072,1 51 

4939 2 : 1 73 , 233 , 203 , 072,1 73,1 89,003 

4939 8 : 204 , 07 2,1 73 , 249 , 203 , 072,1 95 
4 9404 : 1 65 , 2 53 , 072 , 1 6 5 , 2 54 , 072 , 209 
49410 : 189 , 083 , 205 , 141 , 233 , 203, 032 
4941 6 : 189 , 067 , 205, 141 , 21 7 , 203, 006 
49422 :1 89 , 068 , 205,1 41 ,21 8 , 203,01 4 
49428 : 1 38 , 072 , 032 , 1 67 , 1 99 , 1 04,220 

494 34 : 1 70, 1 72, 1 89 , 204, 1 77 , 253, 1 67 

49440 : 208, 031 , 200, 1 77 , 253 , 208,085 

49446 : 026 , 173 , 008 , 208 , 201 , 235,121 
494 52 : 1 76 , 019,2 22 , 1 09,2 0 5,2 08,21 5 
494 58 : 01 9,1 69,001 , 1 57,1 09 , 205,1 98 
49464 : 254 , 00 9 , 20 8, 0 32,1 1 8,1 93,102 
494 70 : 076 , 070,1 93 , 169 , 050,1 57,009 
49476 : 1 09 , 205 , 1 04 , 1 33 , 254 , 1 04,209 
494 8 2 : 1 33 , 253,1 04,1 41 , 249 , 203,1 33 
49488 : 1 04 , 141 , 1 89 , 204 , 104 , 1 41 ,195 
49494 : 233 , 203,1 04,1 41 ,21 8 , 203,164 
4950 0 : 1 04,1 41 ,21 7 , 203 , 238,1 30,1 01 
49 50 6 : 205 , 238,1 30 , 205, 1 73,1 30,1 55 
49512 : 205 , 201 , 007 , 176 , 003 , 076, 004 
4951 8 : 171 , 192 , 1 69 , 000 , 1 41 , 1 30,145 
49 524 : 205 , 096,1 73,021 , 208,1 41 ,1 92 
49530 : 1 71 , 204,1 73,1 1 9 , 205,041 ,01 1 
49 5 36 : 1 1 2 , 240 , 065,1 69 , 000,1 41 ,087 
49542 : 1 55 , 204 , 1 41 , 1 36 , 205 , 1 60,1 11 
49 54 8 : 001 , 189 , 196 , 192, 141 , 064,155 
49554 : 20 5 , 1 85 , 249,1 97 ,01 3 , 064,035 
49 560 : 205 , 045,1 71 , 204,1 41 ,021 , 1 71 

49 56 6 : 20 8 , 032 , 2 39 , 193, 1 73 , 030, 00 9 
4 9572 : 208, 041 ,01 4 , 072 , 013,1 55,1 55 


4 9578 : 204,1 41 , 1 55 , 204,1 04 , 240,1 94 
4 9584 : 00 3 , 2 3 8, 1 36, 2 0 5 , 200,1 92,1 26 
4 9 590 : 004, 1 4 4, 21 2,1 73,1 55,2 04,050 
49596 : 073 , 255 , 04 5,1 71 , 204,1 41 , 053 
4 9602 : 021 , 208,1 73,1 1 9 , 205,041 , 1 93 
496 0 8 : 001 , 1 41 , 1 31 , 205,1 73,1 71 , 254 
49614 : 204 , 205 , 021 , 208 , 240 , 026,086 
49620 : 1 74 , 1 36 , 205 , 024 , 1 73 , 1 34,034 
496 26 : 205, 1 05, 01 0,1 41 , 1 34 , 205,250 
4 9632 : 1 73, 1 35 , 205,1 05 , 000,1 41 ,21 5 
49638 : 1 35 , 205 , 202 , 208 , 236 , 032, 224 
49644 : 1 87 , 1 94 , 096 , 1 73 , 01 8 , 208,088 
49650 : 208, 251 , 1 73,01 7 , 208,01 6,091 
4 96 56 ; 246 , 096,1 69,1 28, 1 33,251 , 247 
49662 il 69 , 039 , 133 , 252 , 169 , 204,196 
4 9 668 : 1 41 , 1 28 , 039,1 60 , 000,1 77,1 37 
4 9674 : 251 , 073 , 255 , 200, 1 4 5,251 , 1 61 
4 96 80 : 056, 1 65, 2 51 , 2 33 , 063, 1 41 , 1 57 
49686 : 041 , 204 , 165 , 252 , 233 , 063, 212 
49692 : 01 3,041 , 204 , 240 , 009 , 230,253 

496 9 8 : 2 51 , 208,2 26,2 30,2 52 , 076,2 53 
49704 : 0 0 7,1 94 , 096, 1 62 , 000, 1 60,1 47 
49710 : 01 6 , 024 , 032 , 240 , 255 , 160 , 00 5 
4971 6 : 0 0 0,1 85 , 074, 1 94 , 032,21 0,235 
49722 .‘ 255 , 200 , 192 , 006 , 208 , 245, 140 
49728 : 1 65 , 1 62 , 024 , 105 , 100 , 197,049 
49 734 il 62,2 08,2 52,0 96,0 6 8 , 073,161 
49 740 : 0 71 ,0 71 , 069 , 082 , 1 6 9,1 4 7,1 73 
49 74 6 : 032, 21 0 , 255,1 69 , 000,1 41 , 1 21 
49752 : 1 39 , 205 , 1 41 , 1 40 , 205 , 032,1 82 

497 5 8 : 003,1 92,1 69 , 000, 1 41 , 057,1 44 
49 764 : 204,1 41 ,1 34 , 205,1 41 , 1 35,036 
49770 : 205 , 032 , 250 , 193 , 032 , 113,163 
49776 : 1 96 , 032 , 091 , 1 95 , 1 73 , 030,061 
49782 : 208 , 032 , 043 , 194 , 032 , 119, 234 
49788 : 1 92 , 03 2 , 1 36 , 1 97 , 032 , 069,01 4 
4 9794 il 96,1 73,1 31 , 205,201 , 002,014 
4 9800 : 240 , 007, 201 ,001 , 240,21 0,01 1 
4 9806 ; 0 76,1 76,1 94 , 238 , 057 , 204,063 
4981 2 : 024 , 169 , 1 00 , 109 , 1 34 , 205,1 21 
4 98 18 : 141 , 134 , 205, 1 73 , 135 , 20 5, 1 23 
49824 : 1 05 , 000,1 41 ,1 35 , 205 , 032,01 0 
49830 ;1 87 , 194,1 69 , 000,1 41 ,1 31 ,2 20 
49836 : 20 5, 0 76,1 07,1 9 4,1 73,1 41 ,044 
49 84 2 : 002 , 20 8, 2 51 ,0 76,1 84 , 194,06 9 
4984 8 : 076,1 22,1 94,1 69 , 000,1 41 ,1 1 8 
49854 : 1 32 , 205 , 1 73 , 021 , 208 , 074,235 
49 860 i 041 , 007,1 41 , 1 33 , 205,1 60,1 1 5 
49 86 6 : 002 , 024,0 78,1 3 3,20 5,1 6 9,04 5 
49 87 2 : 00 0 , 1 09,1 32,20 5,141 ,1 32,1 59 

498 7 8 : 2 05,1 36,01 6,241 ,1 60 , 030,2 34 
49884 : 1 62 , 002 , 024 , 032 , 240 , 255,167 
49890 : 1 69 , 000 , 1 74 , 1 32 , 205 , 208,090 
49896 : 000, 0 32,20 5 , 1 89 , 056 , 173,1 1 9 
49902 : 134 , 205 , 237 , 139 , 205 , 141, 019 
49908 : 064 , 205 , 173 , 135 , 205 , 237, 239 
49914 : 140 , 205 , 013 , 064 , 205 , 144,253 
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49920 = 01 2 , 1 73 , 1 34 , 205 , 141 , 1 39 , 
49926 -. 205,1 73,1 35 , 205,1 41 , 1 40 , 
49932 : 205,1 60 , 006, 1 62 , 004 ,024 , 
49938 = 032 , 240 , 255 , 173 , 140 , 205 , 
49944 : 1 74, 1 39 , 205 , 032 , 205,1 89 , 
49950 : 160 , 006 , 162 , 002 , 024 , 032 , 
49956 : 240 , 255 , 1 73 , 1 35 , 205, 1 74 , 
49962 = 134 , 205 , 032 , 205 , 189 , 160 , 
49968 = 030 , 162 , 004 , 024 , 032 , 240 , 
49974 = 255 , 169 , 000 , 174 , 057 , 204 , 
49980 = 032 , 205 , 189 , 096 , 083 , 067 , 
49986 = 079 , 082 , 069 , 058 , 084 , 082 , 
49992 = 079 , 076 , 076 , 083 , 083 , 067 , 
49998 = 082 , 069 , 069 , 078 , 083 , 072 , 
50004 = 073 , 045 , 083 , 067 , 079 , 082 , 
50010 = 069 , 160 , 024 , 169 , 000 , 153 , 
50016 = 000 , 212 , 136 , 016 , 250 , 169 , 
50022 = 015 , 141 , 024 , 212 , 169 , 017 , 
50028 = 141 , 005 , 212 , 141 , 012 , 212 , 
50034 = 169 , 241 , 141 , 006 , 212 , 141 , 
50040 = 013 , 212 , 160 , 000 , 140 , 137 , 
50046 = 205 , 162 , 000 , 165 , 162 , 024 , 
50052 = 105 , 002 , 197 , 162 , 208 , 252 , 
50058 = 238 , 137 , 205 , 185 , 222 , 195 , 
50064 = 205 , 137 , 205 , 208 , 020 , 200 , 
50070 = 185 , 222 , 195 , 141 , 000 , 212 , 
500 76 = 200, 1 85 , 222, 1 95,1 41 ,001 , 
50082 = 212 , 200 , 169 , 033 , 141 , 004 , 
50088 = 212 , 189 , 032 , 196 , 205 , 137 , 
50094 = 205 , 208 , 020 , 232 , 189 , 032 , 
50100 = 196 , 141 , 007 , 212 , 232 , 189 , 
50106 = 032 , 196 , 141 , 008 , 212 , 232 , 
50112 = 169 , 033 , 141 , 011 , 212 , 165 , 
50118 = 162 , 024 , 105 , 006 , 197 , 162 , 
50124 = 208 , 252 , 169 , 032 , 141 , 004 , 
50130 = 212 , 141 , 011 , 212 , 173 , 137 , 
50136 = 205 , 201 , 030 , 144 , 164 , 096 , 
50142 = 002 , 135 , 033 , 003 , 135 , 033 , 
50148 = 004 , 135 , 033 , 005 , 135 , 033 , 
50154 = 006 , 030 , 025 , 008 , 030 , 025 , 
50160 = 010 , 049 , 028 , 011 , 030 , 025 , 
50166 = 012 , 096 , 022 , 013 , 031 , 021 , 
50172 = 015 , 096 , 022 , 017 , 030 , 025 , 
50178 = 018 , 135 , 033 , 019 , 135 , 033 , 
50184 = 020 , 1 35 , 033 , 024 , 135 , 033 , 
50190 = 022 , 030 , 025 , 024 , 030 , 025 , 
50196 = 026 , 049 , 028 , 027 , 030 , 025 , 
50202 = 028 , 096 , 022 , 029 , 031 , 021 , 
50208 = 001 , 097 , 008 , 010 , 071 , 006 , 
50214 = 011 , 012 , 007 , 012 , 233 , 007 , 
50220 = 013 , 097 , 008 , 015 , 233 , 007 , 
50226 = 017 , 012 , 007 , 018 , 071 , 006 , 
50232 = 026 , 071 , 006 , 027 , 012 , 007 , 
50238 = 028 , 233 , 007 , 029 , 097 , 008 , 
50244 = 255 , 173 , 063 , 205 , 201 , 005 , 
50250 = 144 , 033 , 160 , 002 , 185 , 249 , 
50256 = 007 , 073 , 001 , 153 , 249 , 007 , 


50262 = 136 , 01 6 , 245 , 173 , 24 8 , 00 7, 143 
50268 = 201 , 135 , 144 , 005 , 169 , 128,106 
50274 =141 , 248 , 007 , 238 , 248 , 007, 219 
50280 = 169 , 000 , 141 , 063 , 205 , 238,152 
50286 = 063 , 205 , 096 , 032 , 102 , 197,037 
50292 = 169 , 1 47 , 032 , 21 0 , 255 , 1 60,065 

50298 = 005 , 162 , 001 , 024 , 032 , 240,074 
50304 = 255 , 160 , 000 , 185 , 064 , 195, 219 

50310 = 032 , 21 0 , 255 , 200 , 1 92 , 005,004 

5031 6 = 208 , 245 , 160 , 028 , 1 62 , 001 ,1 76 
50322 = 024 , 032 , 240 , 255 , 1 60 , 000, 089 
50328 = 185 , 070 , 1 95 , 032 , 210 , 255,075 
50334 = 200 , 192 , 006 , 208 , 245 , 1 60, 1 45 

50340 = 028 , 162 , 003 , 024 , 032 , 240,141 
50346 = 255 , 160 , 000 , 185 , 076 , 195,017 

50352 = 032 , 21 0 , 255 , 200 , 1 92 , 007,048 
50358 = 208 , 245 , 160 , 003 , 162 , 003,195 
50364 = 024 , 032 , 240 , 255 , 160 , 000,131 
50370 = 185 , 083 , 195 , 032 , 210 , 255,130 

50376 = 200 , 192 , 009 , 208 , 245 , 1 60,1 90 
50382 = 01 3 , 1 85 , 088 , 1 97 , 1 53 , 000,074 

50388 = 208 , 1 70 , 1 52 , 041 , 001 , 208,224 

50394 = 007 , 138 , 153 , 058 , 204 , 076,086 

50 4 00 =231 ,1 96,16 9 , 000,1 53 , 058,00 7 
50406 = 204 , 1 36 , 01 6 , 229 , 1 69 , 1 28, 088 
50412 =141 , 248 , 007 , 169 , 136 , 141,054 
5041 8 = 249 , 007, 1 41 , 250 , 007,1 41 , 01 3 
50424 = 251 , 007 , 169 , 138 , 141 , 2 52, 182 

50430 = 007 , 1 41 , 253 , 007 , 141 , 254,033 
50436 = 007 , 1 60 , 004 , 1 85 , 084 , 1 97,1 29 
50442 = 153 , 039 , 208 , 1 36 , 016 , 247,041 
50448 = 160 , 003 , 16 9 , 007 , 153 , 043, 039 
50454 = 208 , 1 36 , 016 , 248 , 169 , 001 ,032 
50 4 60 : 1 41 , 037 , 208, 1 69 , 002, 1 41 , 21 4 
50466 = 038 , 2 08 , 169 , 127 , 1 41 , 028, 233 
50472 = 208 , 1 41 , 021 , 208 , 160 , 015,025 
50478 = 169 , 000 , 153 , 173 , 204 , 153, 130 
50 4 84 = 07 5,2 04 , 169,01 5,1 53,031 ,1 87 
50490 = 205 , 1 36 , 01 6 , 240 , 1 69 , 000, 056 
50 4 96 : 1 41 , 065 , 205,141 ,01 6,20 8,072 
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50 50 2 : 1 69 , 003 , 1 41 , 074 , 204 , 1 69, 062 
50 50 8 : 009,1 41 , 032 , 208 , 032,1 87,1 73 
50 51 4 : 1 94 , 096,001 , 01 4 , 005 , 007,1 43 
50 52 0 : 1 73,1 73,2 55, 1 30,2 3 9,1 20, 1 54 
50526 : 1 00 , 1 90 , 060 , 1 31 , 255 , 1 40, 202 
50 53 2 : 1 40, 1 40, 1 60 , 000, 1 85 , 025, 238 
50 53 8 : 201 , 1 5 3 , 000 , 032 , 200 , 208,1 32 
50544 : 247, 1 60, 00 0,1 85 , 025 , 202,1 63 
50 550 : 1 53 , 000 , 033 , 200 , 208 , 247,1 91 
50 556 : 1 60 , 000, 1 85 , 025 , 203 , 1 53,082 
50562 : 000 , 034 , 200 , 208 , 247 , 096, 1 47 
50568 : 1 74 , 065 , 205 , 189 , 245 , 197, 187 
50574 : 1 41 , 066,20 5,1 89 , 249 , 197, 165 
50 5 80 : 1 41 , 064,00 3, 1 73 , 000 , 220,237 
50 58 6 : 072 , 1 73 , 064,00 3,201 , 002,1 57 
50592 : 1 44 , 031 , 104 , 032 , 002 , 199,160 
50 59 8 : 1 52 , 032,231 , 1 97 , 032 , 064 ,1 06 
50 60 4 : 1 99, 1 52 , 032,231 , 1 97 , 238,1 97 
5061 0 : 06 5, 2 0 5,1 73,0 6 5,20 5,2 01 ,06 8 
5061 6 : 0 04 , 144 , 005 , 169 , 000 , 141, 135 
50622 : 065 , 205 , 096 , 032, 241 , 1 99,004 
50628 : 238 , 06 5 , 205 , 104 , 041 , 01 5, 096 
50634 : 0 73 , 015 , 240 , 006 , 141, 0 74, 239 
50 64 0 : 204,0 76,21 5 , 1 97 , 1 73 , 074 , 1 23 
50646 : 204 , 072 , 032 , 231 , 197 , 032,214 
50 6 52 : 241 , 1 99 , 1 04 , 072 , 032,231 ,07 5 
50 6 58 : 1 97 , 032,241 , 1 99, 1 04,01 0,241 
50 6 64 : 1 68,1 85 , 254, 1 97 , 072, 1 85,01 3 
50670 : 253 , 1 97 , 072, 1 74 , 066 , 205,1 81 
50 6 76 : 096 , 000 , 00 2 , 004 , 00 6, 001 ,097 
50682 ; 002 , 004 , 008 , 221 , 198 , 020,191 
50 688 : 1 98, 031 , 198, 221 , 198 , 127,205 
50694 : 1 98 , 221 , 198 , 221 , 198 , 221, 239 
50700 : 1 98 , 042, 1 98,221 , 1 98,221 , 066 
50706 : 1 98, 221 , 1 98,1 69 , 099,221 ,1 00 
50 712 : 001 , 208 , 176 , 003 , 222, 001 ,123 
50 718 : 208 , 096 , 169 , 232, 221 ,001 ,189 
50724 : 20 8,1 44 , 003 , 254, 001 , 208,086 
50730 : 096 , 056 , 1 89 , 058 , 204 , 233,1 10 
50736 : 064,1 41 , 091 , 204,1 89 , 059,028 
50742 : 204 , 233 , 001 , 013 , 091 , 204,032 
50 748 : 1 44 , 013 , 169 , 064 , 157, 0 58, 153 
50754 : 204 , 169 , 001 , 157 , 059 , 204, 09 2 
50760 : 076 , 083 , 1 98 , 254 , 058 , 204,1 77 
50766 : 208 , 003 , 254 , 059 , 204 , 056,094 
50772 : 1 89 , 058 , 204 , 233 , 000 , 141, 141 
50778 : 091 , 204,1 89 , 059 , 204 , 233,046 
50784 : 001 , 013, 091 , 204 , 144 , 012, 049 

50790 : 1 73 , 064 , 003 , 01 3 , 01 6 , 208,067 
50796 : 1 41 , 01 6 , 208 , 076 , 21 5 , 1 98, 1 94 
50 802 : 1 73 , 064 , 003 , 073 , 255 , 045,21 5 
50808 : 016 , 208 , Ì 4 Ì , 01 6 , 208 , 076,01 7 
5081 4 : 21 5,1 98 , 056,1 89 , 058 , 204,022 
50 82 0 : 233 , 025, 1 41 ,091 , 20 4, 1 89,247 
50 826 : 059 , 204 , 233 , 000 , 013 , 09 1,226 
50832 : 204 , 176 , 013 , 169 , 024,1 57,119 

50838 : 058 , 204 , 169 , 000 , 157 , 059, 029 


50 84 4 : 204 , 076,1 7 3,1 98 , 222 , 058,063 
50850 : 204 , 189 , 058 , 204 , 20 1 , 2 55, 249 
50856 : 208 , 003 , 222 , 059 , 204 , 056, 1 52 
50 862 : 1 89 , 058 , 204 , 233 , 000, 1 41 , 231 
50 868 : 091 , 204,1 89 , 059 , 204 , 233,1 36 
50 874 : 001 , 01 3,091 , 204,1 44,01 2,1 39 
50 880 : 1 73,0 64,00 3,01 3,01 6 , 208,1 57 
50886 : 141 , 016 , 208 , 076 , 215 , 198, 028 
50 892 : 1 73 , 064 , 003 , 073 , 255 , 045,049 
50 898 : 01 6 , 20 8 , 141 , 016 , 20 8, 1 89, 220 
50 90 4 : 058 , 204, 1 57 , 000 , 208 , 096,1 71 
50 91 0 : 076 ,21 5 , 1 98, 1 74 , 066 , 205,1 32 
50916 : 222 , 031 , 205 , 240 , 008,1 69,079 
50 92 2 : 000, 1 41 , 030 , 205 , 076,001 , 1 75 
509 2 8 : 1 99 , 1 73 , 004 , 220 , 041 , 031 , 1 40 
509 34 : 056, 1 05,001 , 1 57,031 , 205,033 
5094 0 : 1 69, 001 , 1 41 , 030 , 205 , 096,1 26 
50 946 : 0 32 , 22 5 , 198, 1 73 , 030 , 205, 097 
50952 : 240 , 04 6 , 056 , 189 , 058 , 204,033 
509 5 8 : 237 , 058 , 204, 1 57,1 07 , 204,21 3 
50964 : 1 89 , 059 , 204 , 237 , 059 , 204,204 
509 70 : 1 57, 1 08 , 204,0 2 9,1 0 7 , 204, 067 
50 976 : 240, 01 2,1 76 , 005,1 60 , 008 , 1 21 
50982 : 0 76 , 04 8, 1 99, 1 6 0,00 4,0 76,089 
50 988 : 04 8 , 19 9 , 160 , 000, 1 52 , 1 57,24 8 

50 994 : 07 5 , 204 , 032, 1 1 4, 1 99 , 096,00 2 

51 0 00 : 1 89 , 075 , 204,1 6 8,03 2,1 1 4,07 0 

5100 6 : 1 99 , 096 , 032,22 5,1 98,1 73,21 7 
51 01 2 : 030 , 205 , 240 , 034 , 056, 1 89,054 
51018 : 001 , 208 , 237 , 001 , 208 , 157,118 
51024 : 123 , 204 , 240,01 2,1 76 , 005,072 
51 0 30 : 1 60 , 002 , 076 , 098,1 99,1 60,01 3 
51 036 : 001 , 076 , 098,1 99,1 60 , 000,1 1 4 
51042 : 1 52 , 157 , 173 , 204 , 032 , 114, 162 
51048 : 1 99 , 096 , 189 , 173 , 204 , 168, 109 
51 0 54 : 0 32,1 1 4 , 1 9 9 , 096,0 5 6, 1 89,02 8 
51 0 60 : 1 07 , 204 , 253,1 23 , 204,1 41 , 1 24 
51 066 : 064 , 205, 1 89 , 1 08 , 204 , 233,1 01 
51 0 72 : 000, 01 3 , 064,20 5,1 76 , 007,081 
51078 : 1 89 , 173 , 204 , 168 , 076 , 145,065 
51084 : 1 99 , 189 , 075 , 204 , 168 , 152, 103 
51 090 : 072, 1 74 , 065 , 205,1 73,021 ,088 
51 096 : 20 8, 061 , 249, 1 97 , 24 0 , 003, 086 
51 102 : 032 , 241 , 199 , 174 , 066 , 205, 051 

51 1 08 : 1 04, 1 6 8 , 096,1 73 , 233 , 203,1 1 7 
51 114 : 041 , 00 7 , 072 , 173 , 233 , 203, 131 
51 1 20 : 0 74 , 074 , 07 4, 1 68, 1 85 , 2 29, 21 2 

51126 : 200 , 133 , 253 , 185 , 255 , 200, 128 
51 1 32 : 1 33 , 254 , 024 , 1 04 , 1 01 , 253,033 
51 1 38 : 1 3 3,2 53,1 6 5 , 254,1 05 , 000,080 
51144 :1 33 , 254 , 1 73,21 7 , 203,041 , 1-97 
51150 : 007 , 073 , 007 , 168 , 185 , 233 , 1, 11 
51156 : 1 99, 1 41 , 249 , 203 , 024 , 173,177 
51162 : 21 8 , 203 , 1 01 , 254 , 133 , 254, 101 
51 1 6 8 : 1 73,21 7,20 3, 041 , 24 8,1 41 , 2 23 
51 1 74 : 1 89 , 204 , 096,001 , 002 , 004,21 4 

511 80 : 008 , 016 , 032 , 064 , 128 , 174, 146 
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51 1 86 : 0 66, 20 5, 0 56,1 89 , 058 , 204,2 52 
511 92 : 233,0 2 4,1 41 ,21 7 , 203,1 89,231 
51198 : 059 , 204 , 233 , 000, 141 , 218,085 
51204 : 203 , 056 , 1 89 , 001 , 208 , 233,126 
51210 : 050 , 1 41 , 233 , 203 , 1 41 , 1 72, 1 82 
51 21 6 : 204 , 16 9 , 000 , 1 70 , 1 68 , 024,23 9 
51 222 : 1 85 , 087 , 200 , 109, 1 72 , 204, 21 1 
51 228 : 1 41 , 233 , 203 , 200 , 1 85 , 087,053 
51 2 34 i 200, 1 41 , 237 , 204 , 162 , 000,21 0 
51240 : 032 , 075 , 200 , 238 , 233 , 203, 253 
51 246 : 232 , 236 , 2 37 , 204 , 20 8 , 244, 127 
51 2 52 : 200 , 1 85 , 087 , 200 , 016 , 004,2 32 
51258 : 200, 0 76 , 021 , 200 , 238,21 7,242 
51 264 : 203,20 8 , 003, 2 3 8, 21 8,20 3,1 1 3 
51 270 : 200 , 192, 1 24 , 144 , 20 2, 1 38 , 04 6 
51 276 : 07 2,1 52 , 072,0 32,21 3,20 0, 049 
51282 : 104 , 168 , 104 , 170 , 096 , 007, 219 
51 28 8 : 004 , 000 , 007,001 , 255 , 010, 1 09 
51 294 :001 , 000,00 5 , 002 , 255,01 1 ,1 1 2 
51 300 : 002 , 000 , 005,001 ,2 55 , 01 2,1 1 9 
51 306 : 001 , 000,00 5,001 , 2 55,01 2,1 24 
51 31 2 : 001 ,00 0,0 04,001 , 255,01 3,1 30 
51 31 8 : 001 , 000 , 004,001 , 2 55,01 3,1 36 
51 3 24 : 001 , 000 , 003,001 ,2 55,01 4, 1 42 
513 30 : 00 1 , 000 , 003 , 00 1 , 255 , 014, 148 
51 336 : 001 , 000 , 002,001 , 255,01 5,1 54 
51 342 : 001 , 000,0 02,001 ,2 55,01 5,1 60 
51 348 : 001 , 000 , 002,001 , 255,01 5,1 66 
51 354 : 001 , 000 , 002,001 ,2 55 , 01 5,1 72 
51360 : 001 , 000 , 002,001 , 255 , 015,178 
513 66 : 001 , 000,00 3,001 ,2 55,01 4,1 84 
51 372 : 001 , 000 , 003,001 ,2 55,01 4,190 
513 78 : 001 , 000 , 004,001 , 255,01 3,1 96 
51 384 : 001 , 000 , 004,001 , 255,01 3,202 
51 390 : 001 , 000 , 005, 001 , 255 , 01 2,208 
51396 : 001 , 000 , 005 , 002 , 255,011 ,214 
51402 : 002 , 000 , 007,001 , 000 , 010 , 222 
51408 : 001 , 000,00 7 , 004 , 000 , 032,252 
51 41 4 : 1 67, 1 99,1 72,1 89 , 204,1 73,038 
51 420 : 249 , 20 3 , 073 , 255 , 04 9 , 253,022 
51 4 26 : 1 45 , 253,09 6,00 0,0 64,1 28,1 44 
5 ) 432 : 1 92 , 000 , 064,1 28,1 92 , 000,040 
51438 : 064 , 128 , 192 , 000 , 064 , 128, 046 
51444 : 1 92 , 000 , 064 , 1 28 , 1 92 , 000,052 
51450 : 064 , 128 , 192 , 000 , 064 , 002 , 188 
51456 : 033 , 034 , 035 , 037 , 038 , 039, 216 
51462 : 040 , 042 , 043 , 044 , 045 , 047,011 
51 468 : 048 , 04 9 , 050 , 052 , 053 , 054, 062 
51 474 : 055 , 057 , 058 , 059 , 060 , 062 , 1 13 
51480 : 063 , 000 , 000 , 000 , 000 , 000 , 087 
51486 : 000 , 000 , 252 , 000 , 003 , 087,1 1 6 
51 49 2 : 000, 01 3 , 0 8 5,1 92 , 052 , 01 6,1 38 
51 498 : 112 , 0 53 , 085 , 112 , 213 , 017 , 122 
51 504 : 092 , 21 3 , 085 , 092 , 209 , 085,0 56 
51510 : 028 , 052 , 000 , 112 , 053 , 001 ,044 
51516 :! 1 2 , 01 3 , 085 , 1 92 , 003 , 087,040 
51 522 : 000 , 000 , 252 , 000 , 000 , 000,062 


51528 : 000 , 000 , 000 , 000 , 000 , 000,072 
51534 : 000 , 000 , 000 , 000 , 000 , 000,078 
51540 : 00 0 , 0 00 , 000 , 00 0,00 0 , 000,084 
51546 : 000 , 000 , 000 , 000 , 000 , 000, 090 
51 552 : 252 , 000 , 003 , 087 , 000 , 01 3,195 
51 558 : 00 5 , 19 2, 0 5 3 , 08 5 , 1 1 2,0 53,0 90 
51 56 4 : 020, 1 1 2 , 209 , 085 , 028 , 209,003 
51 5 70 : 081 , 092 , 208 , 085 , 092 , 052,21 2 

51 576 : 021 , 09 2 , 053 , 00 1 , 1 12 , 01 3, 156 
51 58 2 : 08 5 , 192 , 00 3, 0 87 , 000 , 000, 237 
51 58 8 : 2 52 , 000 , 00 0 , 000 , 000 , 000,1 2 8 
51 594 : 000 , 000 , 000 , 000 , 000 , 000,1 38 
51 600 : 000 , 000 , 000 , 000 , 000 , 000 , 1 44 
51606 : 00 0, 00 0 , 000 , 000 , 000 , 000,1 50 
51 61 2 : 000, 0 0 0 , 0 00 , 000 , 2 52 , 00 0,1 52 
5161 8 : 00 3, 0 87 , 000, 01 3,0 8 5, 1 9 2,0 30 
51 62 4 : 053 , 021 , 112 , 052 , 084 , 112, 090 
51 63 0 : 208 , 068 , 092 , 208 , 085 , 092, 1 59 
51 63 6 : 208 , 068 , 092 , 052 , 084 , 1 1 2,028 
51642 : 053 , 021 , 112 , 013 , 085 , 192, 150 
51648 : 00 3 , 087, 00 0, 00 0, 2 52 , 000, 022 
51 654 : 000 , 000 , 000 , 00 0 , 00 0,0 0 0, 1 98 
51660 : 000 , 000 , 000 , 000 , 000 , 000, 204 
51666 : 000 , 000 , 000 , 000 , 000 , 000, 210 
51 672 : 000 , 000 , 000 , 000 , 000 , 000,21 6 
51 678 : 0 00 , 00 0 , 2 5 2 , 000 , 00 3, 0 8 7, 0 52 
51 684 : 0 00, 01 3, 08 5 , 1 92, 0 53, 00 1 ,060 
51 690 : 1 12 , 052 , 021 , 092 , 208 , 085,036 
51696 : 092 , 209, 081 , 092 , 209 , 085,240 
51 702 : 028 , 053 , 020 , 112 , 053 , 085,085 

51 708 ili 2,01 3 , 005,1 92 , 003 , 087, 1 52 
51714 : 000 , 000,2 52,00 0, 00 0 , 000,2 54 
51 720 : 000, 00 0,00 0,0 00 , 000 , 000,00 8 
51 726 : 000 , 000 , 00 0 , 000 , 000 , 000,01 4 
51 73 2 : 000, 00 0, 00 0, 00 0 , 000,0 00, 020 
51 738 : 000 , 000 , 000 , 00 0 , 000 , 000,026 
51 74 4 : 252 , 000 , 003 , 087 , 000,01 3,131 
51 750 : 085 , 1 92 , 053 , 001 , 1 1 2 , 052,021 

51756 : 000 , 112 , 209 , 085 , 028 , 213, 179 
51762 : 085 , 092 , 213 , 017 , 092 , 053, 090 
51 76 8 : 085 , 112, 0 52 , 016 , 112 , 013, 1 90 
51 774 : 085, 1 92 , 003 , 087 , 000 , 000 , 1 73 
51780 : 252 , 000 , 000 , 000 , 000 , 000, 064 
51786 : 000 , 000 , 000 , 000 , 000 , 000, 074 
51792 1000 , 000 , 000 , 000 , 000 , 000,080 
51 798 : 000 , 000 , 000 , 000 , 000 , 000,086 
51804 1000 , 000 , 000 , 000 , 252 , 000,088 
51810 1003 , 087 , 000 , 01 3 , 085 , 1 92,222 
51 81 6 : 053, 001 , 1 1 2 , 21 3 , 0 80 , 11 2, 1 63 
51 822 i 21 3 , 084 , 028 , 21 3 , 021 , 028,1 85 
51 828 1209 , 085 , 028 , 052 , 081 , 11 2,1 71 
51 834 1053 , 085 , 1 12 , 01 3 , 065 , 192,130 
51 84 0 100 3,0 8 7 , 000 , 000,2 52,00 0,21 4 
51846 1000 , 000 , 000 , 000 , 000 , 000,134 
51852 1000 , 000 , 000 , 000 , 000 , 000,140 
51858 1000 , 000 , 000 , 000 , 000 , 000,146 
51 864 : 000 , 000 , 000 , 000 , 000 , 000,1 52 
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51 870 = 000 , 000 , 252 , 000 , 003 , 087,244 
51 876 : 000, 01 3 , 085,1 92 , 053,081 ,076 
51 88 2 sii 2 , 052 , 084,1 1 2,21 2 , 068,042 
51 888 : 028, 21 3 , 084,0 2 8,21 2,0 68,041 
51 894 : 028 , 052 , 084 , 1 1 2 , 053,081 ,080 
51 900 : 1 1 2 , 01 3 , 085 , 1 92 , 003 , 087 , 1 68 
51 906 : 000 , 000 , 2 52 , 000 , 000 , 000,1 90 
51 91 2 : 000 , 000 , 000 , 000 , 000 , 000,20 0 
51 91 8 : 000 , 000 , 000 , 000 , 000 , 000,20 6 
51924 : 000 , 000 , 000 , 000 , 000 , 000,21 2 
51 9 30 : 000 , 000 , 000 , 000 , 000 , 00 0,21 8 
51 936 : 252 , 000 , 00 3, 0 8 7 , 000, 01 3,06 7 
51942 : 065,1 92 , 053,08 5,11 2,0 52,021 
51948 : 0 8 1 , 1 1 2 , 209 , 085 , 028,21 3,1 96 
51 9 54 : 021 , 02 8,21 3 , 0 B 4 , 02 8, 21 3,061 

519 60 : 0 80 , 1 12 , 053 , 001 ,1 1 2,01 3,1 07 
51 966 : 085 , 1 92 , 003 , 087 , 000 , 000,109 
51 972 : 2 52 , 000 , 00 0 , 000 , 00 0 , 000, 0 00 
51 978 : 000 , 000 , 000 , 000 , 000 , 000, 01 0 
51 984 : 0 00 , 000 , 000 , 000 , 00 0 , 000, 01 6 

51 9 90 : 000 , 000 , 000 , 000 , 000 , 000, 022 
51 996 : 00 0 , 0 84 , 000, 001 ,1 69 , 000,026 

52 00 2 : 006,1 70 , 064 , 006 , 238 , 064,070 

5200 8 : 02 6, 1 70, 1 44 , 026, 1 70, 1 44 ,208 

5201 4 : 026,1 70,1 44 , 026,2 54, 1 44,042 
52020 : 02 7, 2 55,1 4 4 , 006,1 70 , 064,20 6 
52026 : 006,1 70 , 064 , 001 , 1 69 , 000,21 2 

520 3 2 : 001 , 0 84 , 000,001 ,00 4 , 000,1 54 
5203 8 : 001 , 005 , 000 , 001 , 064 , 000,1 41 
520 4 4 : 000 , 000 , 000 , 000 , 000 , 000, 076 
520 50 : 000 , 000 , 000 , 000 , 000 , 000,082 
520 56 : 255 , 000 , 000 , 000 , 000 , 084,1 71 
520 62 : 000,001 ,1 69 , 000 , 006,1 70,184 
520 68 : 064 , 00 6 , 238 , 064 , 026,1 70,1 56 
52074 : 144 , 026,1 70,1 44 , 026,1 70,01 8 
520 80 : 1 44 , 026 , 254, 1 44 , 027, 1 71 ,1 1 0 
520 86 : 1 44 , 006 , 254 , 064 , 006,1 70,250 
520 92 : 064, 001 , 169 , 000,001 , 084, 187 

520 98 : 000, 001 ,00 4 , 000,001 , 068,204 

521 04 : 000 , 000 , 005 , 000 , 000 , 000, 141 
521 1 0 : 000 , 000 , 000 , 000 , 000 , 000, 142 
521 1 6 : 000 , 000 , 000 , 000 , 255 , 000 , 147 
521 22 : 00 0 , 000 , 000 , 000 , 000 , 000, 1 5 4 
52128 : 000 , 000 , 000 , 000 , 000 , 000, 160 
521 34 : 000 , 000 , 003 , 252 , 000 , 003, 168 
521 40 : 1 72 , 000,01 4 , 1 7 5, 1 9 2,2 54,21 1 
521 46 : 1 78 , 24 0 , 239 , 170 , 176 , 23 4, 135 
521 52 : 1 86 , 175 , 250, 1 75, 191 , 063,200 
5 21 58 : 1 70,1 72 , 000 , 255,24 0 , 000,003 
52164 : 000 , 000 , 000 , 000 , 000 , 000, 196 
52170 = 000 , 000 , 000 , 000 , 000 , 000,202 
521 76 = 000 , 000 , 000 , 000 , 000 , 000,2 08 
521 82 = 000 , 000 , 255 , 01 3 , 01 3 , 255,238 
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Alan Miller 

PROGRAMMI SCIENTIFICI 
IN PASCAL 

Un'opera base per chi 
desidera costruirsi una 
'libreria' 1 dì programmi In 
grado di risolvere j più 
frequenti problemi 
scientifici e ingegneristici. 
372 pagine L, 25,000 
Codice 554P 

Franco Fìlippazzi 
Giulio Occhini 
VOI E L INFORMATICA 
L opera che il manager 
moderno non può ignorare 
In 100 tavole: gli strumenti 
dell'Informatica, 
(Informatica e l’Azienda, 
realta e prospettive 
tecnologiche ... 

116 pagine L 15.000 
Codice 5 26 A 

Roland Dubois 

CAPIRE I 

MICROPROCESSORI 

Un fantastico viaggio ai la 
scoperta del “cervello" 
elettronico: la funzione 
del microprocessore, 
delle memorie ROM e RAM, 
delie interfacce 
126 pag.ne L. lO OOO 
Codice 342A 


Giuseppe Saccardi 

TRASMISSIONE DATI 
Dispositivi standard e 
protocolli 

Il calcolatore e le sue 
infinite applicazioni nel 
campo delle comunicazioni 
applicate a tutti i settori in 
cui si articola la società 
moderna. Un libro che 
traduce in tecnologia la 
profezia orweiiiana di 
1 1984" 

308 pagine L. 23.000 
Codice 52 8P 

F. Franceschi™ 

F. Paterlini 
Voi e il vostro 
Commodore 64 

Uno strumento 
fondamentale per la 
comprensione e 
programmazione del 
Commodore 64. 

Con consigli, programmi 
testati, glossario e utili 
accenni di BASIC. 

256 pagine L, 22.000 
Codice 347 B 


In edicola il primo numero di 


7 Note Bit 



Il 1985 è l'anno mondiate delta musica... 
preparali con 7 note Bit lo nuova, fantastica opero 
che in soli 15 fascicoli quattordieinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. E puoi suonare subito 
Non perdere il primo numero. Pensa, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tua Commodore 64 



GRUPPO 

EDITORIALE 

JACKSON 


IN COLLABORAZIONE CON SJO— 


GRUPPO ETHOS 



di Angelo Motta 



Originaria mente scritto per Io 
Spettro m (“Campo di Battaglia" 
apparso su SUPERSINC n. 2/34), 
I! programma vi pone al comando 
di un carro armato con l'arduo 
compito di distruggere le posta- 
zioni nemiche. 

Per concludere la vostra missio- 
ne, però, dopo che tutte le posta- 
zioni sono state annientate do- 
vrete far rientro alla vostra ba- 
se. dove vi sarà assegnata una 
nuova missione, ancora piò dif- 
ficile. 

Gli ostacoli che dovrete evitare 
sono mine, trappole anticarro e 
crateri, questi ultimi di due tipi. 

I - I gioco inizia con missioni facili: poche 
postazioni e pochs ostacoli, ma, man 
mano che verranno compiute le missio- 
ni il livello di difficolta aumenterà (mag- 
giori ostacoli e postazioni! sino a diven 
tare quasi impossibile muoversi sul vi 
deo. 

Le istruzioni sono contenute alTinter- 
no del programma, Vi sono inoltre una 
buona quantità dì REM che rendono 
chiara la lettura dei vari blocchi di cui 
è composto. 

Per quanto riguarda i comandi (A=de- 
stra, 4=simstra. 3=alto e W=basso) T i 
tasti utilizzati possono rivelarsi scomodi 
al giocatore, ma sono stati intenzional- 
mente scelti, in quanto permettono di 
utilizzare il joystick nella porta 2 senza 
dover usare la funzione JOY, con con- 


seguente maggior velocita al program- 
ma e quindi al movimento del carro. 
Punteggio: 

** 10 punti per ogni postazione distrut- 
ta; 


"100 punti per ogni missione conclu- 
sa: 

- BONUS di 300 punti e raggiunta di 
un carro ad ogni cinque missioni conclu- 
se. 


Tank per C16 e Plus/4 


1000 REM TRASFERIMENTO CARATTERI IN RAM 




: rem 

158 

1 010 

REM E MODIFICA 

: rem 

3 9 

1 020 

; 

: rem 

253 

1030 

POKE56 ,60: POK E 52,60: PO K E 5 5 , 

, 0 : POKE 5 1 , 


0 

: r em 

172 

1040 

T= 0 : FORI = 1 Q00T0 1 0 30 : READA 

: rem 

236 

1 050 

POKEI, A:T^T+AtNEXT 

: rem 

1 75 

1060 

IET=3288THEMl 080 

: rem 

1 80 


T 0 70 PRINT" (CLRl ERRORE NEI DATAMI” t END 

:rem TOT 


10 80 

SYS1000: PO KE 65298,0: PO KE65299, 60 



; rem 

102 

ì 090 

FORI- 1 61 36TOl 6 2 55 : READA : POKEI , A: 

NEXT 


t rem 

13 

1 1 90 

: :rem 

5 

1200 

REM DATA ROUTINE L/M PER : rem 

150 

1210 

REM TRASFERIMENTO SET CARATTERI 



: rem 

22 

1220 

i : r em 

255 

1230 

DATAI 60 ,0,1 85,0,208,153,0,60 



: rem 

114 

1240 

DATAI 85,0,209, I 53,0,61 ,1 8 5,0 



: rem 

1 24 

1250 

DATA 2 1 0,153,0,62,1 85,0, 21 ì , 1 53 



: rem 

213 


SUPEFtCOMMOOOflE® 6/fiS 4! 


1260 DATAO ,63,24,136,208,228,96 ;rem 41 

1290 ; ;rem 6 

1300 REM DATA CODICI NUOVI CARATTERI 

:rem 157 

1310 REM DA COD 97 A CGD 111 : rem 30 

1320 : :rem 0 

1330 DATAI 6, 14 6, 186, 254, 254,254, 186, 130 

: rem 186 

1 340 DATAI 30, 1 86,254,254,254, 1 86,1 46,1 6 

:rem 187 

1 350 DATA254, 56,1 24,1 27,124,56,2 54,0 

:rem 27 

1 360 DATAI 27, 28,62,254,62,28,1 27,0 

; r em 187 

1370 DATAO, 0,0, 16, 124, 254, 254,0 :rem 13 

1 380 DATAI 12,76,66,76,1 12,64,64,64 

;rem 198 

1390 DATAO, 16, 56, 124, 124, 254, 254 ,254 




: rem 

28 

1 400 

DATAO, 6, 15, 31 ,63,31 ,31 ,15 

: rem 

218 

1410 

DATA48 ,124,254,255,254,254, 

254,252 



: rem 

1 84 

1420 

DATA63 ,63,63,31 ,31,7,3,0 

: rem 

178 

1430 

DATA255 ,2SS, 2 54, 254, 252, 248 

,176, 

32 



: rem 

190 

1440 

DATAI 6, 124, 255, 25 5, 2 55,1 26, 

28,16 




: rem 

83 

1450 

DATA 14,62,126,14,2,2,2,2 

: rem 

1 71 

1460 

DATAO, 126, 66, 90,90,166,126, 

0 




: rem 

1 34 

1470 

DATA255 ,129,189,165,165,1 89 

,129, 

255 



: rem 

6 

1490 

; 

: rem 

8 

1500 

REM PRESENTAZIONE GIOCO 

: rem 

2 

1510 

m 

: rem 

1 

1 520 

COLORO , 6 , 2 : COLOR4 ,6,2 

: r em 

228 


1530 PRINT" {CLR] " ;CHAR, 16,3," £ YEL}T A N K 
" : CHAR ,16,4,"t 7 E}{WHT}" :rem 214 
1540 CHAR, 7, 8, "VUOI LE ISTRUZIONI? (S/N)" 

:rem 115 

1 550 GETZ$: IFZ§^"N"THEN2000 :rem 4 8 

1560 IFZ$<>"S"THENl 550 :rem 228 

1570 PRINT: PRINT" { 2 SUjSEI AL COMANDO DI 
UN CARRO ARMATO COL" :rem 63 

1580 PRINT"C0MP ITO DI DISTRUGGERE TUTTE L 
E POSTA-" : rem 103 

1590 PRINT" Z IONI NEMICHE . " ;rem 80 

1600 FRI NT" PER MUOVERE USA:" : rem 197 
1610 PRINT" < A> PER ANDARE A S IN ISTRA" : PRI 
NT" < 4 > PER ANDARE A DESTRA": rem 227 
1620 PRINT" <3> PER SALIRE" ; PRINT" <W> PER 
SCENDERE" :rem 250 

1630 PRINT" OPPURE USA IL JOYSTICK NELLA P 
RESA N * 2" : rem 24 9 

1640 PRINT" PER DISTRUGGERE LE POSTAZIONI 
PASSA SO- " : PRINT" PRA DI ESSE. 11 

: r em 137 

1650 PRINT"FAI ATTENZIONE ALLE MINE { 

[<G>]), ALLE" : rem 24 5 

1660 PR I NT" TRAPPOLE ANTICARRO ( [<M> ] ) ED 
AI CRATERI * " :rem 235 

1670 PRINT" QUANDO AVRAI DISTRUTTO TUTTE L 
E POSTA-" :rem 135 

1680 PRI NT" ZIONI NEMICHE DOVRAI TORNARE A 
LLA TUA" : r em 6 

1690 PRI NT" BASE (I<Z>]1 PRIMA DI INIZIARE 
UN 1 ALTRA 11 : PRINT" MISS IONE * " : r em 249 
1700 PRINT" {GIU r } PREMI < RETURN > PER INIZI 
ARE" :rem 195 



1 710 

GETZ$: IFZ$OCHR$ (1 3) THENl 710 




: rem 

1 50 

1 990 

; 

;rem 

1 3 

2000 

REM INI Z I ALI ZZ AZIONE GIOCO 

: rem 

234 

2010 

; 

: rem 

253 

2020 

TK“5 :SC=0:SK=0:V=3072 

: rem 

240 

2030 

COLORO ,16,7 : COLOR 4 ,16,4 : VOL8 




: rem 

1 73 

2090 

; 

: rem 

5 

21 00 

REM INIZIA LI Z ZAIONE FASE 

: rem 

63 

2110 

; 

: rem 

254 

21 20 

SK=SK+1 : PRINT" {CLR}" 

: rem 

56 

21 30 

FORI *3 91 2T03951 : POKEI , 6 8 : POKEI - 1 0 24 , 


0 : NEXT 

: rem 

62 

2140 

FORI 3 1 TOSK : GOSUB9QOQ 

: rem 

41 

2150 

POKEB, 1 01 tPQKEB-1 024,22 

: rem 

38 

21 60 

GOSUB9GOO 

: rem 

1 8 

2170 

POKEB ,103: POKEB- 1 024,1 8 

: rem 

47 

21 80 

GOSUB9000 

: rem 

20 

2190 

POKEB, 1 08: POKEB- 1 024, 2 

; rem 

255 

2200 

GOSUB9000 

: rem 

13 

221 0 

POKEB, 1 04:POKEB+1 ,105 

: rem 

1 92 

2220 

POKEB- 1 024, 8: POKEB- 1 023,8 

:rem 

145 

2230 

POKEB + 4 0 , 1 06 ; POKEB + 4 1 , 1 07 

: rem 

137 

2240 

POKEB*- 98 4 , 9 ; POKEB- 98 3 , 8 

: rem 

79 

2250 

NEXT 

: rem 

8 

2260 

FORI = 1 TOSK* 2 : GO SUB 90 00 

: rem 

136 

2270 

IFPEEK (B) -1 02THENGOSUB9000: 

GOTO2270 



; rem 

152 

2280 

I F¥< 1 3 ANDY >7 ANDX< 5THENGOSUB90 0 0 : 

GOTO 


227 0 

: rem 

71 

2290 

POKEB, 102: POKEB -1 024,7 

: rem 

255 

2300 

NEXT 

: rem 

4 

2310 

C = 99 : Xt =1 : Yl = 1 0 : X2 = X1 :Y2^Y1 

: rem 

97 

2320 

RS = 0 

: rem 

21 7 

2330 

POKE3472, 1 09 : POKE2448 , 1 4 

: rem 

89 

2340 

CHAR, 2 ,22," {BLK}SCORE; H : PRINTSC: 

CHAR 


,27, 22, "TANK:" 

: rem 

61 

2350 

FORI = 1 TOTK : PO KE 3 984 + 1,97: POKE2 9 60 + 1 , 


0 : NEXT 

i rem 

1 26 

2360 

FORI = 9TOl 1 : CHAR ,1 , 1 , " { 3 SPAZI}" 

;NEX 


T 

: rem 

1 37 

2490 


: rem 

9 

2500 

REM CICLO PRINCIPALE 

: rem 

252 

2510 

: 

: rem 

2 

2520 

DS="4" 

: rem 

230 

2530 

SOUND3 ,98,6 

: rem 

133 

2540 

GETZ$ : I F Z $ < > " " THENGOTO 3030 

: rem 

92 

2550 

Z$=D$ : POKEV+X1 +Yl *40 ,C 

: r em 

20 
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2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 


REM MOVIMENTO CARRO 


: rem 1 4 

: rem 220 

: : rem 254 

IFZ$<>"4 1 ' ANDZS < >" 3 " ANDZS < ANDZ$< > 
M A"THENZ$=D$ : rem 14 

XI = Xl + (Z$*"A n ANDXl >0) - ( Z$ = " 4 11 ANDXÌ < 3 

9) ;rem 80 

Yl =Y1 +{Z$="3 M ANDY> >0) - ( ZS = " W" ANDYl < 2 

0) :rem 96 

C~ ( 97AND2$=" 3" } + ( 98ANDZ$= M W" ) + [99AND 
Z$ = ,, 4") + (1QQANDZ$ = ,1 A M ) :rem 56 

B-V+Xl +Y 1 * 40 : W=PE£K (B ) ;rem 27 

FQKEB,C: POKEB- 1 024, 0: POKEV+X2+Y2MQ, 



32 

i rem 

238 

3080 

X2 = X1 : Y2=YÌ 

: rem 

167 

3090 

D$ = Z$ 

; rem 

239 

3990 

; 

: rem 

15 

4000 

REM CONTROLLO COLLISIONE 

: rem 

85 

4010 

: 

; rem 

255 

4020 

I FW< 1 01 THEN2 5 30 

: rem 

>15 


4030 IFW=103THENCHAR,0, 23, "{FLASH OH) 

[<2>){ 6 SPAZIÌUNA TRAPPOLA ANTICARR 
OM!{ 8 SPA2I } " :GOTO4820 :rem 205 

4040 IFW=1 QÌTHENCHAR,0, 23," {FLASH ON) 

[<2>){ 9 SPAZIÌHAI URTATO UNA MINA!! 



! { 8 SPAZI ) {BLK}":G0704820 

; rem 

44 

4050 

IFWOl 09THEN4090 

: rem 

191 

4060 

IFRS=SK*2THEN602Q 

: r em 

44 

4070 

XI =1 : VI =1 0 :X2=X1 :Y2»Yl :C=99 

: r em 

>02 

4080 

POKE3472 , 1 09 : POKE244B , 1 4 :G0TO2520 




: rem 

1 53 

4090 

IFW< >1 0 2THEN41 80 

: r em 

1 88 

4100 

CHAR ,5,23," {FLASH ON) [< 2> ] POSTAZIONE 


NEMICA DISTRUTTAjBLK} " 

: rem 

105 

4110 

FORI=650TO850STEP4 

: rem 

1 26 

4120 

SQUND3 ,1,1 : SOUND3 , 1 + 50 , 1 : NEXT 




: r em 

38 

4130 

RS=RS+1 ;$C-SC+> 0 

: rem 

21 8 

41 40 

CHAR ,8,22," { BLK } " : PRINTSC 

: rem 

44 

4 ì 50 

CHAR , 5 , 2 3 , ” { 30 SPAZI}" 

;rem 

74 

4160 

I FRS<SK* 2THEN25 30 

: rem 

46 

41 70 

CHAR, 1,23," [<2>1 POSTAZIONI 

DISTRUTTE 


- RIENTRA IN BASE" :GOTC2530 




; rem 

230 

41 80 

CHAR, 0,23," {FLASH QN][<2>) 




{ 7 SPAZIOSE! CADUTO IN UN 

CRATERE ! 1 


{ 6 SPAZI} 11 

: rem 

1 30 

4790 


: rem 

14 

4800 

REM ESPLOSIONE CARRO 

; rem 

40 

481 0 

: 

: rem 

7 

4820 

A A = 850 

: rem 

42 

4830 

FORI ~ 1 TOl 0 

; rem 

113 

4840 

AA=AA-2 5 : SOUND 3 , AA , ! 0 : POKEB 

,110 




: rem 

63 

4850 

AA-AA- 25 ; SOUND 3 , A A , 6 

: rem 

172 

4860 

POKEB, > 1 1 : NEXT 

; rem 

123 

4990 

; 

:rem 

16 

5000 

REM DISTRUZIONE CARRO 

: rem 

128 

501 0 


: rem 

0 

5020 

CHAR,0, 23," {FLASH ON} { 6 SPAZI }lL 

, CA 


RRO E * STATO D ISTRUTTO \{ 6 

SPAZI} 

ir 



: rem 

1 86 

5030 

POKEB, 3 2 

: rem 

202 

5040 

CHAR , 3 2 + TK ,22, 11 ":TK“TK-1 

: rem 

85 

5050 

XI =1 : Y 1 = 1 Q : X 2 = X 1 :Y2=Yl ;C = 99 

:D$= M 4 

ii 



: r em 

1 88 

5060 

B=V+X 1 +Y 1 * 40 : POKEB , C l POKER- 

1024,0 




: rem 

172 

5070 

FORI = 1 TO 1 000 : NEXT : CHAR ,4,23 

m 

t 



{ 30 SPAZI}" 

: rem 

0 


5080 

IFTK>0THEN2 520 

ì rem 

97 

5190 

; 

ì rem 

9 

5200 

REM FINE GIOCO 

: rem 

62 

5210 

: 

: rem 

2 

5220 

CHAR, 1 1 ,23 V {FLASH ON}{BLK}G A M 

E 


{ 3 SPAZ I } 0 V E R 1 ' 

: rem 

222 

5230 

CHAR, 9, 24, "GIOCHI ANCORA? 

(S/N) » 




: rem 

22 

5240 

GETZ$ : I FZ$ = 11 3"THEN2Q 00 

: rem 

53 

5250 

IFZSO"N ,, THEN524Q 

: rem 

223 

5260 

PGKE65298,4: PO KE6 5 299,208; 

PRINT" 



{CLR } n 

: rem 

70 

5270 

COLORO,! : COLOR4 , 1 

:rem 

36 

5280 

CHAR, 1 6, 1 2," {YEL}C I A Q!" 

: END 




: rem 

>07 

5990 

i 

: rem 

17 

6000 

REM FASE COMPLETATA 

: rem 

>79 

6010 

: 

: rem 

1 

6020 

CHAR,0, 23," {FLASH ON] { 10 

SPAZI )MISS 


IONE COMPLETATA { 10 SPAZI} 

" ;rem 

22 

6030 

FORI = 70 0TO900STEP4 : SOUND 1 , 

1/1 




: rem 

63 

6040 

SOUND 1 ,1+50,1 :NEXT:SC-SC+> 00 




;rem 

190 

6050 

CHAR, 8, 22, n ( 1 0 SPAZI }" i PRINTSC: ; 

FORI 


* 1 TOl 00 :NEXT 

; rem 

1 79 

6060 

CHAR, 10, 53, "£ 24 SPAZI}" 

:rem 

120 

6070 

IFSK< > ( INT(SK/5) *5 J THEN21 20 : rem 

86 

6080 

CHAR, 1 0,23, "{FLASH ON}£<2>]B O N 

U S 


{ 3 SPAZI }C A R R 0" 

: rem 

143 

6090 

FORI =50GT09Q05TEP4: SOUND 1 , 

1,1: NEXT 



: rem 

>88 

6100 

TK=TK+ 1 :SC=SC+ 300 

: rem 

255 

6120 

CHAR, 8, 22," " : PRINTSC 

; rem 

44 

61 30 

FORI - 1 T0 1 000 : NEXT 

: rem 

69 

6140 

POKE3984+TK , 97 : POKE2 96Q+TK 

, 0 : GOTO 2 > 2 


0 

; rem 

208 

8990 


; rem 

20 

9000 

REM CALCOLO COORDINATE SCHERMO 




: rem 

163 

9010 


: rem 

4 

9020 

X = INT ( RND ( 0 } * 39 ) 

: rem 

1 51 

9030 

Y - INT (RND { 0 } * 20 ) 

: rem 

143 

9040 

B=V+X+Y* 4 0 

: rem 

55 

9050 

RETURN 

: rem 

1 74 
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Un’altra super utility! Recente- 
mente. sai numero di Marzo, ab- 
biamo pubblicato 11 SUPERTUR- 
BO per VIC 2Ù m €64, che per- 
mette di caricare 1 programmi da 
cassetta alla stessa velocità del 
disk drive 1541, Al possessori di 
quest'ultimo forniamo ora un 
programma che velocizza del 
300% e piu il caricamento dei 
programmi de disco! Vi accorge- 
rete presto che TURBODISK è 
altrettanto rivoluzionario di SU* 
PERTURBO ed ugualmente facile 
da usare. Per C64 e per VIC 20 
con espansione di memoria da 
almeno 3 Kbyte. 

S e vi § mai capitato di usare un drive 
realmente veloce, vi sarete accorti 
che il buon vecchio drive Commodore 
1541 , in quanto a velocità di caricamene 
lo* è uno degli ultimi in classifica. Certa 
mente, è molto più veloce del Datasse!- 
te senza SUPERTURBO, ma rispetto 
agli altri drive sembra una tartaruga. 
Ora esiste una soluzione per portarsi a 
livelli superiori: TURBODibtv 
La prima volta che userete TURBO 
DISK rimarrete sicuramente stupiti dal* 
le sue prestazioni: esso infatti velocizza 
ìE processo di caricamento di program 
mi di un fattore tre o più alto ancora* 
Infatti, piu lungo è il programma da ca- 
rìcare, più velocemente avverrà il suo 
caricamento. 

TURBODISK non richiede alcuna modi- 
fica né al vostro computer né al drive: 
esso carica programmi salvati nella soli- 
ta maniera; non e richiesto alcun parti- 
colare "Turbonave", 

TURBODISK è compatibile con la mag 
gior parte dei programmi in BASIC ed 
in linguaggio macchina, compreso 11 
DOS WEDGE; non compromette in al- 
cun modo l'affidabilità delle operazioni 
con il drive, e si può attivare o disattiva- 
re a piacere, ed in qualunque momento, 
attraverso due semplici comandi. 

Come preparare TURBODISK 
per €64 

Per il C64 h come si può notare , ci sono 
due programmi: il primo - più lungo - 
e II 44 program ma generatore", che ha il 


compito di creare un file su disco in 
linguaggio macchina (il TURBODISK 
vero e proprio); il secondo è un micio- 
programma di due linee (non presente 
per la sua brevità sulla cassetta allegata 
alla rivista), che avrà in seguito la fun- 
zione di caricare ed attivare il TURBO* 
DISK 

Ma vediamo, passo dopo passo e per il 
C64, la procedura da seguire per gene- 
rare TURBODISK: 

I spegnere e riaccendere U C64, since- 
rarsi che il drive sia collegato ed acceso: 

2. caricare da cassetta il programma 
“ 64. TURBODISK " e mandarlo in ese- 
cuzione con il RUN; 

3. il programma vi chiederà: "INSERÌ 
SCI IL DISCO E PREMI RETURN T 
Inutile dire che il disco su cui volete 


registrare TURBODISK dovrà essere 
stato precedentemente formattato e de- 
ve avere spazio libero sufficiente per 
.ontenere il TURBODISK stesso Inseri- 
telo nel drive, chiudete lo sportello e 
premete il RETURN: 

4. dopo un certo tempo il program- 
ma visualizzerà: “TURBODISK. OBJ 
CREATO" e quindi: "UN'ALTRA CO- 
PIA (S/N)?'*, Premete S, se desiderate 
creare un'altra copia di TURBODISK: 
su un altro dischetto, ovviamente, dal 
momento che uno stesso disco non può 
contenere due file con Io stesso nome. 
Premete N in caso negativo. 

Tutto qui: molto semplice, no? 

Il “generatore" crea un file su disco dal 
nome "TURBODISK OBJ" è questo il 
vero e proprio TURBODISK. che usere- 
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te per caricare velocemente i program- 
mi da disco, TURBODISK. GBJ è un 
programma in linguaggio macchina, che 
parte dalla locazione 49152 e termina 
nella locazione 50084; la cosa migliore 
è averne una copia su ognuno dei vostri 
dischetti: per riprodurlo potete sia man- 
dare in esecuzione ripetutamente il ‘'ge- 
neratore'', cambiando di volta in volta il 
disco nel drive, sia usare un normale 
copiatore di fiìe p sia usare il SUPERMO- 
NITOR (SUPERCOMMODORE di Gen 
naìol nella sua versione riiocata a parti- 
re dalla locazione 8192, 

Infine potete digitare il programmino di 
due linee qui listato e salvarlo sullo stes- 
so disco, magari con il nome “TURBO 
DISK", La sua unica funzione e quella 
di caricare automaticamente TURBO- 
DISK.OBJ e mandarlo in esecuzione al 
frettante automaticamente. Se decidete 
di non usare questo caricatore, dovrete 
digitare: 

LOAD"TURBODlSK.OBr,8,l 

a caricamento avvenuto digitare; 

NEW 

e quindi digitare: 

SYS49152 

Il programmino di due lìnee altro non 
fa che compiere per voi queste opera- 
zioni. 

Gli abbonati che non dispongono della 
cassetta dovranno prestare molta atten- 
zione nel digitare il programma, che co- 
munque è molto ricco di controlli interni 
sulla correttezza delle linee DATA, 

Note «Ila veieiooe par VIC 20 

Il programma per VIC 20 ha un princi- 
pio di funzionamento diverso da quello 
per C64, Innanzi tutto occorre sottoli- 
neare che è richiesta un'espansione di 
memoria da almeno 3 Kbyte. 
TURBODISK, una volta caricato da 
cassetta, legge le sue istruzioni DATA 
e ne inserisce t valori - tramite istruzio- 
ni POKE - nella parte alta della memo- 
ria. 

TURBODISK si regola automaticamen- 
te in funzione del tipo di espansione di 
memoria collegata, così che funziona 
perfettamente con qualsiasi ammontare 
di RAM aggiuntiva, TURBODISK ridur- 
rà l'ammontare di memoria libera di- 
sponibile di 1280 byte, 

TURBODISK può essere salvato su di- 
sco come un qualunque programma 
BASIC (salvate sempre prima di dare il 
RUN, quindi non caricate II programma 
con SHIFT+RUN/STOP, ma con un 
semplice LOAD!). 

Una volta mandato in esecuzione il pro- 
gramma visualizzerà due SYS. usabili 
rispettivamente per attivare e disattiva- 
re il TURBODISK; il valore di queste 
SYS è variabile, a seconda del tipo di 
espansione di memoria collegata al VIC 
20 . 


T n r bo Ioidi n g, » , 

Come già detto, al contrario del SU 
PERTURBO non occorre ricrearsi il 
proprio ‘parco programmi" turbo sai 
vando tutti i file uno per uno: TURBO- 
DISK carica velocemente qualsiasi file 
salvato in modo normale Dopo aver 
caricato e mandato in esecuzione TUR 
BODISK.OBJ per il C64, e "VIC.TUR 
BOD1SK" per il VIC 20, digitate sempli 
cernente: 

LO AD" NOME DEL FILE',8 
oppure 

LOAD“NOME DEL FILENI 

proprio come al solito. 

Una cosa di cui vi accorgerete immedia- 
tamente è che la luce rossa del drive 
rimane spenta: ciò è assolutamente nor- 
male usando TURBODISK. È altrettan- 
to normale, per il C64, Io scomparire 
dello schermo durante il caricamento, 
on il VIC 20 apparirà la scritta “TUR 
OLOADING . " invece del normale 
"LOADING". 

Potreste, occasionalmente, avere la ne- 
cessità di disattivare TURBODISK ed 
usare un normale LO AD: I drive 1541 
sono pieni di problemi di allineamento 
delle testine e sé avete un disco format- 
tato da un drive diverso dal vostro, può 
essere che si ertine in questo caso pro- 
blemi nel caricamento dei programmi 
da disco. Dal momento che la routine 
di TURBODISK è poco... insìstente nel 
cercare di caricare programmi che 
presentano irregolarità di registrazione, 
sarà più conveniente in questo caso 
disattivare temporaneamente TURBO- 
DISK. 

TURBODISK si può disattivare, nel 
C64, con: 

SYS49155 

mentre si può riattivare con. 
SYS49152 

Per il VIC 20 sì usino i valori visualizzati 
dai programma stesso, 

Se premete RUN/STOP+RESTQRE, 


dovrete poi riattivare TURBODISK con 
la SYS di cui sopra. 

Aleso# precauzioni 

Usando TURBODISK, può essere atti- 
va una sola periferica sul bus seriale. 
Spegnete quindi tutte le periferiche 
(quasi sempre stampanti), tranne il dri- 
ve numero 8. Se “turbocaricate" un 
programma ed il disco continua a girare 
indefinitamente, probabilmente avrete 
dimenticato accesa la stampante. 

Nel C64 TURBODISK risiede nel bloc- 
co di memoria da 4 Kbyte che parte 
dalla locazione 49152, in modo da esse- 
re completamente sicuro da sovrascrit- 
ture da parte del BASIC, T uttavia, alcu- 
ni programmi In linguaggio macchina 
usano il medesimo spazio di memoria 
occupato da TURBODISK. Ovviamen- 
te, questi programmi non sono caricabili 
in "turbo": occorre disabilitare TURBO- 
DISK e procedere ad un caricamento 
normale; una volta caricato il program- 
ma in linguaggio macchina TURBO- 
DISK non sarà più presente nella me- 
moria del computer. Ciò vale per tutti 
quei programmi in linguaggio macchina 
che occupano le locazioni da 49152 a 
50431. 

Per quanto riguarda la versione per 
VIC 20 occorre prestare attenzione nel 
caricamento di programmi troppo lun- 
ghi, che potrebbero sovrascrivere TUR- 
BODISK A questo proposito, dopo 
aver dato il RUN a TURBODISK stesso 
digitate in modo diretto: 

PRINT INT(FRE(0)/256) 

Il valore che si ottiene è - con una certa 
approssimazione — il massimo numero 
di blocchi su disco che può occupare un 
programma per essere caricato senza 
disturbare TURBODISK 
TURBODISK velocizza il LOAD - anche 
il LOAD ottenuto da programma, molto 
comune nella programmazione del VIC 
20 - ma lascia inalterati in velocità sia il 
SAVE che 11 VERIFY. Non modifica inol- 
tre la velocità della scrittura o caricamen- 
to dati dei file sequenziali (istruzioni 
GET#. INPUT# e PRINT#}, 


Quanto è veloce? 

Ecco i risultati di alcuni test che abbiamo eseguito con II C64. con e senza TURBO- 
DISK, sul caricamento di alcuni programmi sia commerciali che da noi precedente- 
mente pubblicati. Vengono riportati i tempi di caricamento con e senza TURBO 
DISK e il fattore di guadagno espresso in percentuale. 


PROGRAMMA 

BLOCCHI 

NORMALE 

TURBO 

FATTORE 

Pìccolo database 

9 

7.0 

3.5 

200% 

Cypher 

14 

10.5 

5.0 

210% 

Caverne spaziali 

17 

13.0 

52 

250% 

Speedscripl 

20 

14.0 

5.3 

264% 

Forbidden crypt 

44 

30.0 

8.0 

375% 

Forth apocalypse 

153 

98.0 

23,0 

426% 


Questi dati sono comunque soggetti a piccole venazioni, a seconda delia taratura 
del drive utilizzato. 

Dopo aver provato TURBODISK pensiamo apprezzerete questo Logico comple- 
mento al SUPERTURBO pubblicato precedentemente. 
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Non è inoltre compatibile con certe ca- 
ratteristiche di alcuni programmi, come 
il caricamento dei testi in SPEE- 
DSCRÌPT (anche se è possibile “turbo- 
caricare" SPEEDSCRIPT stesso). Può 
inoltre non funzionare correttamente 
con certi programmi commerciali prò- 
tetti 

Come funziona TURBODISK 

Il linguaggio macchina che costituisce 
TURBODISK è alquanto insolito, dal 
momento che solo circa la sua metà la- 
vora allìnterno del computer, mentre il 
resto viene eseguito aH'interno dello 
stesso drive 1541. Al contrario dì altri 
drive per diversi computer, il drive 
Commodore 1541 è una periferica “in- 
telligente*, che contiene i propri micro- 
processori, memoria RAM e memoria 
ROM 

Ciò significa che il drive può essere pro- 
grammato per ottenere risultati partico- 
lari; TURBODISK è uno di questi risul- 
tati. 

Durante il breve intervallo di tempo che 
trascorre dal momento in cui si digita 
LO AD e quello in cui il disco inizia a 
girare, vengono trasferiti 420 byte di 
linguaggio macchina dal computer nella 


RAM del drive. È questa la seconda 
parte dei dati nel programma genera- 
tore, che nel C64 sono immagazzinati 
nelle locazioni da 49664 a 50083. Que 
sto necessario trasferimento di dati pri- 
ma di ogni “turboload*’ aggiunge un cer 
to ammontare di tempo al tempo totale 
di caricamento, e spiega il perché TUR 
BODISK sia meno veloce nel caricare 
programmi brevi e sembri acquistare 
molta velocità nel caricamento dì pro- 
grammi estremamente lunghi. 
TURBODISK modifica il vettore 
ILOAD nelle locazioni 816-817 (S330- 
$331) per fare in modo che punti a se 
stesso, by-passando le normali routine 
di LOAD nella ROM del computer. Per 
prima cosa TURBODISK controlla se è 
stato richiesto un caricamento della di- 
rectory (LOAD“$"2,8) od un VERIFY, 
in entrambi i casi il controllo viene ripas- 
sato alle routine standard su ROM (no- 
terete infatti che 11 caricamento della 
directory avviene a velocità normale). 
Se invece viene richiesto il caricamento 
di un programma, TURBODISK aggiun- 
ge il nome del file al linguaggio macchi- 
na che viene passato al drive ed opera 
questo passaggi dì dati dal computer 
al drive. 


Questa porzione di TURBODISK, che 
si viene a trovare nella RAM del drive, 
usa le routine poste invece nella ROM 
del drive stesso per localizzare la posi 
zione del programma sul disco e quindi 
caricarlo settore per settore. Per au- 
mentare la velocità di caricamento alcu- 
ne delle routine ROM del drive - come 
quella che mantiene accesa la luce ros- 
sa - non vengono eseguite. 1 256 byte 
di dati costituenti ogni settore sono tra- 
sferiti, due bit alla volta, in un buffer di 
256 byte aH'interno del computer. Nel 
C64 questo buffer si trova nelle locazio- 
ni 501 76-5043 1($C400-$C4FF). 

(1 linguaggio macchina costituente TUR- 
BO DISK allìnterno del computer legge 
i dati in arrivo sulle linee DAT A e CLK 
della porta seriale, invece della sola li- 
nea DATA usata nel normale LOAD. 
In un certo senso TURBODISK trasfor- 
ma temporaneamente il vostro 1541 se- 
riale in un drive parallelo a due bit. 
Quando tutti i 256 byte di un settore 
vengono trasferiti nel buffer del compu- 
ter il contenuto del buffer viene aggiun- 
to al programma in memoria, mentre lì 
drive sta leggendo dal disco il settore 
successivo. 


TURBODISK per VIC 20 

LO POKE55, 0;POKE56,PEEK{ 56) -5:CLR: PRINT" 
{GIUMVXC TURBODISK" : rem 105 

20 X = PEEK ( 56 ) : Al =X*256 : PRINT" [GIU 1 JSCRITT 
ORA BLOCCO 1 M : rem 160 

30 FORAD-AlTOAl +4 4 4 : READDT : CK=CK*DT: I FDT< 
0THENDT*X-DT-1 1 rem 234 

40 POKEAD , DT : NEXT ; I FCK< > 52 477THENPRI NT" 
fRVS) ERRORE NELLE" ; PRINT” LINEE 1000-14 
4 4”: STOP ; rem 51 

50 CK=0:A2=A1+51 2: PRINT” SCRITTURA BLOCCO 
2" : rem 4 7 

60 FQRAD=A2TOA2 + 4l 9 : READDT : CK=CK+DT 

: rem 165 

70 POKEAD, DT: NEXT: I PCKO 4 3460THENPR I NT" 

{ RVS } ERRORE NELLE" : PRI NT" LI NEE 2000-24 
1 4 M : STOP : rem 45 

80 PRX NT" DATI QK" : PRI NT” {GIU 1 } SYS" Al " PER 
ATTIVARE” : PRINT" {GIU 1 } SYS" Al + 3" PER DlS 


ATTIVARE” 

: rem 

99 

90 SYS Al 


: rem 

21 8 

999 1 

REM +* 

VIC TURBODISK L/M 

: rem 

68 

1000 

DATA 

24,144,24,169,73,141 

ì rem 

188 

1006 

DATA 

48,3,169,245,141 ,49 

: rem 

154 

1012 

DATA 

3,160,0,185,41 ,-1 

: rem 

21 

101 8 

DATA 

240,6,32,66,231 , 200 

: rem 

133 

1024 

DATA 

208, 245,96,1 69,84 , 141 

: rem 

3 

1030 

DATA 

49,3,169,-1 ,1 41 ,49 

: rem 

90 

1036 

DATA 

3,160,21 ,208,230,13 

: rem 

128 

1042 

DATA 

84,85,82,66,79,68 

: rem 

74 

1048 

DATA 

73,83,75,32,68,73 

: rem 

65 

1054 

DATA 

83,65,66,76,69,68 

: rem 

76 

1 060 

DATA 

13,0,13,84,85,82 

: rem 

248 

1066 

DATA 

66,79,68,73,83,75 

: rem 

78 

1072 

DATA 

32,65,67,84,73,86 

: rem 

65 

1078 

DATA 

65,84,69,68,13,0 

: rem 

14 

10 84 

DATA 

1 33, 1 47 , 1 65, 1 47 , 208,30 

: rem 

43 

1090 

DATA 

160,0,177,1 87,201 ,36 

: rem 

194 

1096 

DATA 

240,22,162,16,169, 160 

: rem 

247 

1102 

DATA 

157, 148,-4,202,16,250 

i rem 

231 


1108 DATA 1 77, 1 87,153,1 46 , - 4 , 200 ; rem 40 
1114 DATA 196,1 83,144,246,176,5 : rem 1 

1120 DATA 165,147,76,73,245,160 : rem 251 

1126 DATA 0,1 85,138,-1 ,240,30 : rem 129 

1132 DATA 32,66,231 ,200,203,245 ì rem 235 

1138 DATA 1 3,84,85,82,66,79 : rem 70 

1144 DATA 76,79,65,68,73,78 : rem 79 

1Ì50 DATA 71,4 6,46,46,13,0 : rem 24 7 

1156 DATA 77,45,87,0,0,32 : rem 206 

1162 DATA 1 69,1 6,1 33,255,1 69,0 : rem 202 

1168 DATA 133,251 ,169,-3,1 33, 252:rem 37 

1174 DATA 1 69,0,1 33,253,1 69,5 : rem 153 

1180 DATA 1 33,254 ,165,1 86 ,32,1 77: rem 49 
1186 DATA 255,1 69,1 1 1 , 3 2 , 1 47 , 2 55 : rem 50 
1192 DATA 165,253,164,254,141,159 

;rem 100 

1198 DATA -1,140,160,-1,160,0 :rem 120 
1204 DATA 185,156,-1,32,168,255 :rem 245 
1210 DATA 200,192,6,208,245,160 :rem 234 
1216 DATA 0,177,251,32,168,255 :rem 199 
1 22 2 DATA 200 , 1 92 , 3 2 , 1 4 4 , 246 , 1 65 : rem 3 3 
1 228 DATA 2 5 1 , 1 0 5 , 3 1 , 1 3 3 , 2 5 1 , 1 6 5 : rem 32 
1 234 DATA 252,1 05,0,1 33,252,1 65 : rem 235 
1240 DATA 253, 105, 32, 133,253, 165: rem 31 
1 246 DATA 254,1 05,0,1 33,254,32 : rem 187 

1252 DATA 174,255,198,255,208,180 

; rem 105 

1 258 DATA 5 , 1 86 , 3 2 , 1 7 7 , 2 5 5 , 1 69 : rem 65 
1 264 DATA 1 1 1 ,32,1 47,255,169,85 ; rem 0 
1 270 DATA 32,1 68,255,1 69,67,32 : rem 210 

1 276 DATA 1 68 , 255 , 32 , 1 74 , 255 , 1 20 : rem 49 
1282 DATA 32,137,-2,44,0,-5 ;rem 28 

1288 DATA 48,59,164,195,166,196 :rem 27 
1294 DATA 1 65, 1 85,240,6,172,2 :rem 152 
1 300 DATA -5,114,3,-5,13.2,174 ; rem 127 

1 306 DATA 1 34,1 75,1 62,4,32,1 1 3 : rem 188 

1312 DATA -2, 32 , ì 37, *2,1 73,0 :rem 70 
1318 DATA -5,48,41 ,240, 6', 32 :rem 39 

1 324 DATA 1 1 1 ,-2,24,1 44,240,1 62 ; rem 224 
1330 DATA 2,160,0, 1 89,0, -5 ;rem 234 

1336 DATA 145,174,200,232,240,7 :rem 239 
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1 342 

DATA 

236,1 ,-5,144,242,240 

: rem 

181 

1348 

DATA 

240,32,1 24,-2,24 , 166 

: rem 

1 86 

1354 

DATA 

1 74,1 64, 175,88,96,169 

: rem 

22 

1360 

DATA 

4,44 , 1 69 i 0,56, 1 76 

: rem 

53 

1366 

DATA 

242,1 62 , 2, 1 60, 0, 1 89 

: rem 

146 

1 372 

DATA 

0 ,-5,145, 1 74,200,232 

: rem 

180 

1378 

DATA 

208,247 , 24 , 1 52, 1 01 , 1 74 

: rem 

44 

138 4 

DATA 

1 33,1 74, 1 65, 1 75, 1 05,0 

: rem 

248 

1390 

DATA 

1 33, 1 75, 96 , 1 60,0 , 1 69 

: rem 

205 

1396 

DATA 

128,141 ,17,145,173,17 

; rem 

255 

1402 

DATA 

1 45,41 ,2,240,249,1 69 

; rem 

195 

1408 

DATA 

0,1 41 , 1 7,1 45,1 62,7 

: rem 

91 

1414 

DATA 

202,234 , 208 ,252,1 62 , 4 

: rem 

237 

1420 

DATA 

1 73,17,1 45,74,38,149 

: rem 

206 

1426 

DATA 

74 ,38,1 49,234,234, 202 

: rem 

253 

1432 

DATA 

208,242,165,149,73,255 

: rem 

50 

1438 

DATA 

1 53,0,-5,200,208,207 

: rem 

182 

1444 

DATA 

96 

: rem 

86 

1999 

REM ** 1541 TURBODISK L/M 

\ rem 

94 

2000 

DATA 

32,66,203,120,169,18 

i rem 

191 

2006 

DATA 

160,1,141,0,3,140 

: rem 

20 

2012 

DATA 

1 ,3,32,1 86,5,1 69 

t rem 

248 

201 8 

DATA 

3,133,60, 162,0,1 34 

: rem 

82 

2024 

DATA 

75,240,41 ,160,0,177 

: rem 

1 39 

2030 

DATA 

59,201 ,130,208,25,200 

: rem 

227 

2036 

DATA 

200,200,1 85, 145,6,201 

: rem 

230 

2042 

DATA 

42,240,61 , 201 ,63,240 

: rem 

1 79 

2048 

DATA 

4,209 , 59,208 , 7,200 

: rem 

100 

2054 

DATA 

192,18,240,48,208,234 

: rem 

251 

2060 

DATA 

230,75,166,75,224,8 

i rem 

1 52 

2066 

DATA 

240,7,189,98,5,1 33 

: rem 

112 

2072 

DATA 

59,208,208,173,0,3 

: rem 

97 

2078 

DATA 

240,6,1 72,1,3,76 

: rem 

254 

2084 

DATA 

14,5,169,255,141 ,0 

: rem 

96 

2090 

DATA 

3, 32, 1 33, 5,88,76 

: rem 

2 

2096 

DATA 

69,217,2,34,66,98 

: rem 

70 

21 02 

DATA 

1 30,162,194,226,230,59 

: rem 

35 

2108 

DATA 

1 60,0,1 77,59,141 ,0 

: rem 

91 

21 1 4 

DATA 

3,200,177,59,141 ,1 

: rem 

87 

2120 

DATA 

3,32,1 86,5,32,1 33 

: rem 

35 

2126 

DATA 

5,173,0,3,208,245 

: rem 

41 

2132 

DATA 

96,1 60,0,1 85,0,3 

: r em 

245 

2138 

DATA 

133,133,44,0,24,16 

: rem 

87 

2144 

DATA 

251 ,1 69,16,141 ,0,24 

: rem 

140 

21 50 

DATA 

44 ,0,24 ,48, 251 , 1 62 

: rem 

89 

2156 

DATA 

4,169,0,6,133,42 

: rem 

251 

2162 

DATA 

10,6,133,42,10,141 

: rem 

76 

2168 

DATA 

0,24,202,208,240,72 

: rem 

138 

21 74 

DATA 

104,72,104,169,15,141 

: rem 

243 

21 80 

DATA 

0,24,200,208,206,96 

: rem 

1 38 

21 86 

DATA 

1 72, 1 ,3,1 32,7,1 73 

: rem 

45 

21 92 

DATA 

0,3,1 97,6 ,8, 1 33 

: rem 

205 

21 98 

DATA 

6,40,240,1 6,169,176 

: rem 

159 

2204 

DATA 

133,0,88,36,0,48 

: rem 

250 

2210 

DATA 

252 , 120,1 65,0,201,1 

: rem 

119 

2216 

DATA 

208,78,169,238,141 ,12 

: rem 

0 

2222 

DATA 

28, 1 69 ,6,1 33, 50, 1 69 

: rem 

1 54 

2228 

DATA 

0,1 33,51 , 1 33,48,1 69 

: rem 

148 

2234 

DATA 

3,133,49,32,58,6 

: rem 

0 

2240 

DATA 

80,254,1 84,173,1 ,28 

; rem 

1 48 

2246 

DATA 

153,0,3,200,208,244 

: rem 

1 34 

2252 

DATA 

1 60,1 86,80,254 ,1 84 , 1 73 

: rem 

50 

2258 

DATA 

1 , 28,1 53,0,1 , 200 

; rem 

238 

2264 

DATA 

208,244,32,224,248,165 

: rem 

47 

2270 

DATA 

56,197,71 ,240,4,169 

: rem 

1 59 

2276 

DATA 

34,208,20,32,233,245 

: rem 

194 

2282 

DATA 

197,58,240,4,169,35 

: rem 

164 

2288 

DATA 

208,9,169,236,141 ,12 

; rem 

209 

2294 

DATA 

28,96,24,105,24,1 33 

: rem 

1 53 

2300 

DATA 

68,169,255,141 ,0,3 

: rem 

94 

2306 

DATA 

32,133,5,1 65,68,76 

: rem 

105 


2312 

DATA 

200,193,32,64,6,76 


i rem 

95 

2318 

DATA 

124,6,1 65, 18,133,22 


: rem 

145 

2324 

DATA 

1 65, 1 9 , 1 33,23, 1 65, 6 


: rem 

149 

2330 

DATA 

133,24,165,7,133,25 


t rem 

1 40 

2336 

DATA 

169,0,69,22,69,23 


£ rem 

55 

2342 

DATA 

69,24,69,25,133,26 


: rem 

107 

2 34 8 

DATA 

32,52,249,162,90,32 


: rem 

153 

2 35 4 

DATA 

1 24,6,80,254, 1 84 , 1 73 


ì rem 

204 

2360 

DATA 

1 ,28,217,36,0,208 


: rem 

41 

2366 

DATA 

6,200,1 92,8,208,240 


: rem 

147 

2372 

DATA 

96,202,208,233,169,32 

: rem 

25 4 

2378 

DATA 

208,175,1 69,208,141 , 

5 

: rem 

6 

2384 

DATA 

24 , 1 69,33,44,5,24 


: rem 

54 

2390 

DATA 

16,163,44,0,28,48 


: rem 

51 

2396 

DATA 

246,1 73,1 ,28, 1 84, 1 60 


; rem 

208 

2402 

DATA 

0,96,160,160,160,160 


: rem 

185 

2408 

DATA 

160,160,160,160,160, 

1 60 

: rem 

78 

241 4 

DATA 

1 60,1 60,1 60,160,1 60, 

160 

: rem 

75 



Generatore TURBODISK per C64 

1 00 PR I NT" (CLR } n TA8 (206) " (WHT ) GENERATORE 
TURBODISK" :PRINT:FRINT £ rem 4 7 

110 PRINT" {CYN} INSERISCI IL DISCO E PREMI 
{ RVSl RETURN {OFF} " : PRINT: PRINT 

t rem 134 

120 GETA$ : IFASOCHRS (1 3) THENÌ 20 treni 248 
1 30 0PEN2 ,3,2," TURBODISK -OBJ , P ,W" : GOSUB 1 
000 trem 100 

140 PRINT#2 ,CHR$ (0)CHR$ (1 92) ; :rem 78 

1 50 FORI = 0TO4 2 7 : READA : CK=CK+A: FRI NT# 2 ,CHR 

$ (A) ; : NEXTI : rem 225 

1 60 I F A< >320 RCK 05503 8 THEN PR I NT 1 ' { R VS } ERRO 
RE NELLE LINEE DATA 49 1 5 2- 4 9 578" ; GOTO 
300 : rem 21 

1 70 FORI-0TO8 3 i PRINT#2 , GHRS (234) ? ; NEXTI 

; r em 115 

180 CK = 0 : FORI = 0 TO 4 1 9 : READ A : C K=C K+ A : FRI NT # 
2 , CHR5 (A) ; : NEXTI :rem 26 

1 90 IFAOl 600RCK043460THENPRINT" [ RVS ì ERR 
ORE NELLE LINEE DATA 49664- 50078" : GOT 
0300 : rem 65 
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200 CLOSE 2 ; FRINTTAB ( 9 J 11 [ < 7 > ] TURBOD I SK ♦ OB 
J CREATO 11 : PRI NT : PRINTTAB (10); 

:rem 16 

210 INPUT “UN'ALTRA COPIA (S/N } M ; A$ : I PA$ < 
>"S H THEN END srem 23 

220 RUN : rem 137 

300 CLOSE2 : CLOSEl 5 sQPENl 5,8,15, ,l SQ : TURBOD 
I S K « OBJ ■ : CLOSE 1 5 : END srem 45 

1 0 00 CLOSEl 5 ; QPENl 5,8,15: INPUT# 1 5 , E , E$ ,T , 
S : I FE e QTHENRETURN srem 71 

1010 PRI NT" ERRORE DISCO" E"; ”E$;T;S 

srem 29 

1 0 20 CLOSEl 5 sOPENl 5 , 8 , 1 5 , " 1 0 ; H : CLOSEl 5 

srem 160 

491 00 REM **64 TURBODISK L/M ; rem 31 
491 52 DATA 76 , 27 f 1 92 , 1 69 , 1 65 , 1 4 1 ; rea 63 
491 58 DATA 48,3,169,244,1 41 ,49 :rem 221 
491 64 DATA 3,160,0,185,41,192 : rem 151 

49170 DATA 240,6,32,22,231,200 srem 184 
49176 DATA 208 , 2 4 5 , 96 , 1 69 , 84 , 1 4 1 : rem 71 
491 62 DATA 4 8,3,169,192,1 41 ,49 : rem 220 

49188 DATA 3,160,21 ,208,230,13 : rem 196 

49194 DATA 04,85,82,66,79,68 s rem 142 
49200 DATA 73,83,75,32,68,73 : rem 115 

49206 DATA 83,65,66,76,69,68 : rem 135 

4921 2 DATA 1 3,0,1 3,84,85,82 : rem 51 

4921 8 DATA 66,79,68,73,83,75 ; rem 13? 

49224 DATA 3 2,65,67,84,73,96 : rem 124 

49230 DATA 65,84,69,68,13,0 : rem 64 

49236 DATA 133,147,165,147,208,30 

: rem 102 

49242 DATA 162,16,169,160,157,148 

: rem 108 

49248 DATA 195,202,16,250,160,0 : rem 249 
49254 DATA 1 77, 1 87 , 201 , 36 , 240, 1 2 : rem 50 
49260 DATA 177,187,153,140,195,200 

srem 161 

49266 DATA T 96 , 1 83 , 1 4 4 , 2 46 , 1 7 6 , 5 s rem 69 
49 272 DATA 1 6 5 , 1 4 7 , 7 6 , 1 6 5 , 2 4 4 , 3 2 : rem 62 

49278 DATA 69 , 1 9 3 , 1 65 , 1 86 , 3 2 , 1 7 7 : rem 79 
49284 DATA 255,169,111,32,147,255 

: rem 1 0 9 

49290 DATA 1 69 , 8 5 , 32 , 1 6 8 , 2 5 5 , 1 6 9 : rem 75 
49296 DATA 67,32,1 68,255,32,1 74 : rem 18 
49302 DATA 255,120,169,11 ,141 ,17: rem 39 
49306 DATA 208,32,19,193,44,0 :rem 156 
49314 DATA 1 96 , 48 , 76 , 1 64 , 1 95 , 1 66 : rem 75 
49320 DATA 1 96 , 1 65, 1 85, 240, 6 , 1 72 s rem 56 
49326 DATA 2,196,174,3,196,132 srem 213 
49332 DATA 174,134,175,162,4,32 :rem 254 
49338 DATA 251 , 1 92 , 32 , 1 9 , 1 93 , 1 73 : rem 60 
49344 DATA 0,196,48,48,240,6 srem 114 
49350 DATA 32 , 249 , 1 92 ,76 , 1 88 , 1 92 s rem 69 
49356 DATA 162,2,160,0,189,0 irem 101 
49362 DATA 196,145,174,200,232,240 

:rem 147 

49368 DATA 7,236,1,196,144,242 :rem 216 
49374 DATA 240,240,32,6,193,24 :rem 203 
■49380 DATA 72,1 69,27,1 41 ,1 7,208 :rem 8 
49386 DATA 104,166,174,164,175,88 

: rem 122 

49392 DATA 96,169,4,44,169,0 srem 124 
49398 DATA 56,176,235,162,2,160 srem 12 
49404 DATA 0,189,0,196,145,174 srem 211 
49410 DATA 200,232,208,247,24,152 

srem 86 

49416 DATA 101,174,133,174,165,175 

: rem 1 52 

49422 DATA 1 05,0,1 33,1 75,96,160 : rem 251 
49428 DATA 0,169,11,141,0,221 :rem 142 
49434 DATA 173,0,221,16,251,169 i rem 253 


49440 DATA 3,1 41 ,0,221 ,1 62,5 : rem 87 

49446 DATA 20 2 , 2 34 , 2 0 8 , 252 , 1 6 2 , 4 : rem 46 

49452 DATA 173,0,221,10,8,10 ì rem 88 

49458 DATA 38,1 49,40,38,1 49,202 : rem 14 

49464 DATA 208,242,165,149,73,255 

irem 115 

49470 DATA 1 53 , 0 , 1 96 , 200 , 208 , 209 ; rem 46 

49476 DATA 96 , 1 6 9 , 1 6 , 1 3 3 , 2 55 , 1 69 : rem 77 

49482 DATA 0 , 1 33 , 25 1 , 1 6 9 , 1 94 , 1 3 3 : rem 53 

49488 DATA 2 52 , 1 69 , 0 , 1 3 3 , 2 53 , 1 6 9 : rem 65 

49494 DATA 5,1 33,254,1 65,186,32 : rem 11 

49500 DATA 177,255,169,111,32,147 

;rem 103 

49506 DATA 255,165,253,164,254,141 

srem 156 

49512 DATA 169,193,140,170,193,160 

: rem 1 53 

4951 8 DATA 0,185,166,1 93,32,1 68 : rem 13 
49 524 DATA 255,200,1 92 , 6 , 208 , 2 4 5 s rem 51 
49530 DATA 160,0,177,251,32,168 :rem 253 
49536 DATA 255,200,192,32,144,246 

;rem 101 

49542 DATA 165,251,105,31,133,251 

: rem 91 

4 9 548 DATA 1 65 , 2 52 , 1 0 5 , 0 , 1 33 , 25 2 : rem 4 7 
49554 DATA 165,253,105,32,133,253 

srem 99 

49560 DATA 1 65 , 2 54 , 1 0 5 , 0 , 1 33 , 25 4 : rem 45 
49566 DATA 32,174,255,198,255,208 

srem 121 

49572 DATA 1 80,96,77,45,87,0 : rem 127 

49578 DATA 0,32 ; rem 236 

49600 REM ** 1541 TURBODISK L/M : rem 133 
49664 DATA 32,66,208,120,169,1 8 : rem 10 

49670 DATA 160,1,141,0,3,140 srem 86 

49676 DATA 1 ,3,32,1 86,5,1 69 : rem 67 

49682 DATA 3,1 33,60,1 62,0,1 34 : rem 148 

49688 DATA 75,240,41 ,160,0,1 77 : rem 214 

49694 DATA 59 , 20 1 , 1 30 , 20 8 , 2 5 , 20 0 : r ei 46 

49700 DATA 2 00 , 2 00 , 1 85 , 1 4 5 r 6 , 20 1 : rem 31 

49706 DATA 4 2,240,61 ,201,63,240 : rem 245 

49712 DATA 4,209,59,208,7,200 srem 157 

4971 8 DATA 1 92 , 1 9 , 2 40 , 48 , 2 0 8 , 2 3 4 : rem 61 

49724 DATA 2 30,75,1 66,75,224,8 ; rem 218 

49730 DATA 240,7,189,98,5,133 srem 169 

49736 DATA 59,208,208,173,0,3 srem 163 

49742 DATA 2 4 0,6,1 72,1 ,3,76 ; rem 55 

49748 DATA 1 4,5,169,255,141,0 : rem 162 

49754 DATA 3,32,1 33,5,88,76 : rem 68 

49760 DATA 69,217,2,34,66,98 srem 727 

49766 DATA 130,162,194,226,230,59 

; rem 1 1 0 

49772 DATA 160,0,177,59,141,0 srem 157 

49778 DATA 3,200,1 77,59,141 , 1 : rem 162 

49784 DATA 3,32,186,5,32,133 srem 110 

49790 DATA 5,173,0,3,208,245 :rem 107 

49796 DATA 96,160,0,185,0,3 :rem 64 

49802 DATA 133,133,44,0,24,16 srem 144 

49808 DATA 251,169,16,141,0,24 srem 206 

49814 DATA 44,0,24,48,251,162 srem 155 

49820 DATA 4,169,0,6,133,42 srem 52 

49826 DATA 10,6,133,42,10,147 srem 142 

49832 DATA 0,24,202,208,240,72 srem 195 

49838 DATA 1 04 , 72 , 1 0 4 , 1 69 , 1 5 , 1 41 ; rem 53 

49844 DATA 0,24,200,208,206,96 srem 204 

49850 DATA 172,1,3,132,7,173 srem 102 

49856 DATA 0,3,197,6,8,133 srem 15 

49862 DATA 6,40,240,16,169,176 srem 216 

49868 DATA 133,0,88,36,0,48 srem 69 

49874 DATA 252,120,165,0,201,1 srem 194 

49880 DATA 208,78,1 69,238,1 41 , 1 2 : rem 66 
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49886 

DATA 

28,169,6,1 33,50,1 69 

: rem 

229 

49892 

DATA 

0,133,51 ,133,48,169 

: rem 

214 

498 9 S 

DATA 

3,133,49,32,58,6 

: rem 

75 

49904 

DATA 

80,254,184,1 73,1 ,28 

: rem 

274 

4991 0 

DATA 

153,0,3,200,208,244 

: rem 

191 

4991 6 

DATA 

160,1 86,80,254,1 84,173 





: rem 

116 

49922 

DATA 

1,28,153,0,1,200 

: rem 

39 

49928 

DATA 

208,244,32,224,248,165 





: rem 

113 

49934 

DATA 

56,197,71 ,240,4,169 

: rem 

225 

49940 

DATA 

34,208,20,32,233,245 

: rem 

251 

49946 

DATA 

197,58,240,4,169,35 

: rem 

230 

49952 

DATA 

208,9,169,236,141 ,12 

: rem 

70 

49958 

DATA 

28,96,24,105,24,133 

: rem 

21 9 

49964 

DATA 

68,169,255,141,0,3 

: rem 

169 

49970 

DATA 

32, 1 33, 5, 1 65, 6B, 76 

: rem 

177 

49976 

DATA 

200, 193,32,64,6,76 

: rem 

7 70 

49982 

DATA 

1 24,6, 1 65, 1 8, 1 33, 22 

: rem 

21 7 

4 998 8 

DATA 

165, 19,1 33,23,165,6 

; rem 

224 

49994 

DATA 

133,24,165,7,133,25 

; rem 

275 

50000 

DATA 

169,0,69,22,69,23 

: rem 

9 B 

50006 

DATA 

69, 24,69, 25, 133', 26 

: rem 

155 

50012 

DATA 

32,52,249, 162,90,32 

: rem 

192 

5001 3 

DATA 

1 24 , 6,80,254 , 1 84 , 1 73 

: rem 

25 2 

50024 

DATA 

1 ,28,21 7,36,0,208 

: rem 

89 

50030 

DATA 

6,200,192, 8,208,240 

: rem 

186 

50036 

DATA 

96, 202, 208, 233, ’69, 32 

: rem 

46 

50042 

DATA 

20B, 175, 169, 208, 141 ,5 

: rem 

45 

50048 

DATA 

24, 169,33,44,5,24 

: rem 

102 

50054 

DATA 

16,163,44,0,28,48 

: rem 

99 

50060 

DATA 

246,173,1,28,184,160 

: rem 

247 

50066 

DATA 

0,96,1 60, ! 60, 160, i 60 

: r em 

242 



50072 DATA 160,160,160,160,160,160 

: rem 1 26 

5007S DATA 160,160,160, 160,1 60, 160 

: rem 132 


Caricatore TURBODI5K per C64 

10 IP A-OTHENA*! : LO AD "TURBODISK .OBJ" , 8 , 1 

:rem 155 

20 SYS 491 52: NEW i rem 138 




Sp&no grutu*ro offralo ttet J soff 



AFRICA 

Una “Nave della Pace” in partenza dall’Italia 
porterà in Africa soccorsi immediati e aiuti 
per un domani migliore con il vostro contributo. 


Nave della Pace 


La “Nave della Pace”: 
uno strumento nuovo 
per intervenire immedia- 
tamente là dove è neces- 
sario un urgente soccorso 
a popolazioni gravemen- 
te colpite da calamità na- 
turali. Non 
porta solo aiuti | > %, 
immediati ma 
anche strumen- 
ti di lavoro e f\ 

mezzi ausiliari \ ) 

idonei a realiz- \\ 

zare migliori 

condizioni di 

vita. 

Affinché questo risultato 
sia raggiunto, gli aiuti 
siano adeguati ed efficaci 
e la “Nave della Pace” 
possa partire a pieno ca- 
rico occorrono offerte e 
solidarietà da parte di 
tutti. Specialisti dei pro- 


blemi dello sviluppo han- 
no offerto consi# per la 
migliore attuazione del 
progetto. L’iniziativa ha 
ottenuto l’Alto Patronato 
del Presidente della 
Repubblica Italiana, il 
I Patrocinio 
deU’ONU, del- 
Z\ 3 la Lega di So- 
detà di Croce 
3 — Rossa e di 

Mezza Luna 

Rossa e della 
Croce Rossa 

1 Italiana e il 

contributo del 
Dipai#nento per la Coo- 
perazione allo Sviluppo 
del Ministero degli Affari 
Esteri. Il Comitato 
“Nave della Pace” chiede 
a quanti comprendono la 
necessità ed il valore 
dell’iniziativa, offerte di 


mezzi e di beni indispen- 
sabili per i soccorsi di pri- 
ma necessità e per # aiuti 
di sviluppo destinati a 15 
paesi deli’ Africa. 


Nave della Pace 


Da compilare in stampatello ed inviare 
in bufila chiusa a: : 

Comitato Nave delta Pace | 

V.lc Mazzini 41 OGI95 Roma. 

SL. ANCH'IO VOGLIO AIUTARE 
LA NAVE DELLA PU F A PARTIR! 

con li; stive pi ine 

Coynoai » 

Nome 

Vip N 

CAP_ Località I 

Per qursTo ho deriso di inviare il mio \ 

coni ri Ini lodi I 

Z Lil.JO.Wm Ut. so.ooo I 

LiL 25.000 I.tt. lOO.OGOnpiÙ | 

tramite; | 

Assegno non rrasferibilt; intestalo; 

(jjmojiu Nave delia Pace 
ZCr postale n. 1S2S5(KH) 
lì tini fi co bancario a credito 
del t/t n. J10U SI t/o 
la Cassa di Risparmia di Roma 
sede ceni mie ■ tl 

Via del Corso, 31Ù ^ 00186 Roma V 

Z Desidero tuia ricevuta def mio versa mrnto. 






di L. Wong 

trad. ed adatt. 

dì L. Priotio 



II C64 è un computer potente e 
versatile, mi II suo interprete 
BASIC non è dotato di apposite 
istruzioni per tracciare grafici In 
alta risoluzione. Ecco quindi un 
programma che rende factlleet* 
mo l'uso della pagina grafica, 
fornendovi di un nutrito set di 
comandi per la vitnalizzazlone di 
una gran varietà di figure geo* 
metriche. 


*<y>omc curve plotter" permette dì 
V**disegnare linee, angoli, cerchi, 
ellissi, parabole ed iperboli sullo scher 
mo ad alta risoluzione del CÓ4 con la 
semplice pressione di un tasto. Permet- 
te inoltre di disegnare con il joystick e 
di salvare la pagina grafica su nastro 
Lo schermo ad alta risoluzione del C 64, 
altrimenti detto pagina grafica © scher- 
mo a mappa di bit. è dotato di una riso- 
luzione di 320 pixel orizzontali per 200 
pixel verticali. 

Nelle versioni “sperimentali” di questo 
programma i cerchi apparivano alquan 
to schiacciati, proprio a causa della for 
ma rettangolare dei pixel. Dopo aver 
eseguito un po' di calcoli con la carta 
millimetrata abbiamo scoperto che la 
lunghezza di 9 pixel in verticale equiva- 
le a una larghezza di 1 1 pixel In orizzon- 
tale; per rimediare a questo inconve- 
niente insito, nell hardware del C64, ab- 
biamo definito all'Interno del program- 
ma ben tre tipi diversi di schermo. 

Il primo è il normale schermo in alta 
risoluzione, con 320 pixel verticali e 
200 orizzontali; Il secondo ha dimensio- 
ni di 320 pixel orizzontali per 244 verti- 
cali (risultato ottenuto moltiplicando la 
normale ordinata verticale per 11/9), Il 
terzo schermo permette che le sue di- 
mensioni vengano definite dall'utente, 
Naturalmente, le dimensioni citate della 
pagina grafica sono “fittizie", usate cioè 
nei calcoli di scala effettuati dal pro- 
gramma per poter generare figure non 
distorte, e non costituiscono in alcun 
modo un aumento di risoluzione del 
C64, 

Il secondo schermo è quello che mini- 


mizza le distorsioni nei cerchi e negli 
angoli, ed è quindi quello consigliato 
normalmente, mentre il terzo può servi- 
re per particolari esperimenti di grafi- 
ca. 

1 confini dello schermo vengono control- 
lati dal programma in tutti I modi di 
tracciamento, con T esclusione di quello 
tramite joystick. Il tracciamento di li- 
nee, parabole ed iperboli può essere 
interrotto manualmente, e si interrom- 
pe in ogni caso, se vengono raggiunti I 
confini dello schermo. 

Tracciando cerchi, archi o ellissi non è 
invece possìbile interrompere manual- 


mente il procedimento di visualizzazio- 
ne. 

In origine il programma era stato scritto 
interamente in BASIC: ci volevano ben 
27 secondi per la pulizia della pagina 
grafica (inserendo degli 0 nelle locazioni 
da 8192 a 16191), 3 secondi per rego- 
lare il suo colore di fondo sul ciano (inse- 
rendo il valore 3 nelle locazioni da 1024 
a 2023) e 25 minuti per salvare o cari- 
care la schermata su nastro (con l'uso 
di PR1NT # e GET # L In seguito que- 
ste routine molto lente in BASIC sono 
state sostituite con altre routine in lin- 
guaggio macchina, ottenendo funzioni 
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praticamente istantanee e riducendo ìL 
tempo di salvataggio delle schermate su 
nastro a circa quattro minuti, 

Inizlillzzirc 11 tutto 

All'inizio dell'esecuzione del program- 
ma vi verrà richiesto di selezionare il 
tipo di schermo. Dopo che avrete inseri- 
to la vostra scelta si passerà In alta riso- 
luzione ed il cursorino (un pixel nero} 
apparirà al centro dello schermo. 

Siete ora pronti per tracciare un dise- 
gno, usando i comandi del program- 
ma. 

Molti di essi richiedono l'inserimento di 
informazioni addizionali, come una posi- 
zione di schermo od un angolo. La posi- 
zione sullo schermo viene definita inse- 
rendo le coordinate X e Y. con origine 
in alto a sinistra, di coordinate quindi 
0,0. Dal momento che il programma 
non controlla ta congruenza dei valori 
di coordinate inseriti, assicuratevi di in- 
serire valori che non superino le dimen- 
sioni dello schermo che avete preceden- 
temente selezionato. 

Gli angoli devono sempre essere specifi- 
cati in gradi - non in radianti - e misu 
rati in senso orario a partire dall'oriz- 
zontale. 

Comandi con la pressione di un 
tasto 

A: traccia una lìnea con angolo specifi- 
cato, Vi viene richiesto il punto di par 
tenza e l'angolo della linea. Il cursore 
inizierà a muoversi tracciando la linea, 
fino a che venga raggiunto il bordo dello 
schermo, o venga premuto un tasto 
qualsiasi. 

O: traccia una linea tra due punti. Vi 
viene richiesto il punto di partenza ed 
il punto di arrivo. Il cursore può essere 
fermato premendo il tasto FI, La pres 
sione di F3 seleziona invece i due modi 
M draw" ed ta erase n ed in ver te la direzio- 
ne del cursore. 

C: traccia un cerchio od un arco. Occor- 
re specificarne il raggio, il centro, l'an- 
golo di partenza e la densità Per trac- 


ciare un cerchio gli angoli iniziale e fina- 
le sono rispettivamente 0 e 360. La 
densità può assumere valori tra 0.1 e 
1, premendo RETURN si assume il va- 
lore dì default di 0,667. La densità de- 
termina la spaziatura tra ì pixel plottali: 
un valore basso causerà un cerchio 
composto da pochi punti, mentre un va- 
lore alto traccerà un cerchio molto più 
definito, impiegando tuttavia un tempo 
superiore, 

I: traccia un'ellisse. Occorre specificare 
i parametri A e B dell 1 equazione (X'X/ 
A*A+Y7B*B=1L il centro, rangole det- 
rasse maggiore e la densità. Il parame- 
tro A è metà della lunghezza dell'asse 
maggiore, mentre B è la metà dell'asse 
minore. Se A e B sono uguali, verrà 
tracciato un cerchio di raggio A, 

P: traccia una parabola. Vi verrà richie- 
sto il parametro A deir equazione 
(X=A*Y*Y), il vertice, rangola dell’asse 
di simmetria e la densità. Il tracciamen- 
to può essere fermato in qualunque mo- 
mento con la pressione di un tasto. 

H: traccia un'iperbole. Occorre specifi- 
care i parametri A e B dell’equazione 
(X*X/A'A-Y*Y/B*B=1), il centro, lan- 
golo dell'asse trasversale e la densità. 
Anche qui I possibile fermare il traccia- 
mento con la pressione di un tasto qua- 
lunque, 

Q: permette di definire la posizione del 
cursore, il tipo di schermo e le sue di- 
mensioni. 


T: modifica il tipo di schermo. Questo 
comando viene eseguito automatica- 
mente all'inizio del programma. I dise- 
gni tracciati precedentemente non ven- 
gono disturbati dal combiamento del ti- 
po di schermo. 

M: muove il cursore a un punto specifi- 
cato, Il tasto CLR/HGME porta il cur- 
sore a 11 ‘origine delle coordinate, mentre 
SH1FT+CLR/HOME pulisce anche la 
pagina grafica, 

S: salva la pagina grafica su nastro. 

L: carica una pagina grafica preceden- 
temente salvata su nastro, 

/: esce dal programma. Per rientrare 
nel programma, senza perdere ì disegni 
tracciati, digitate GOTO 15. 

Il programma è diviso in due parti. La 
prima inserisce in memoria il linguaggio 
macchina, mentre la seconda rappre- 
senta il programma principale. Occorre 
ovviamente caricare la prima parte, da- 
re il R UN, e alla ricomparsa del cursore 
caricare la secondo parte e darle a sua 
volta il RUN 


Uà esempio 

A titolo di esempio vi forniamo i para- 
metri usati per tracciare la schermata 
del fotocolor 


TASTO DA 
FREMERE 

R 

PARAMETRI 

A & 

INIZ. 

ANGOLI 

Tifi, 

TRA 

COOHD. 

CENTRO 

DENSITÀ 

PUNTI 

C 

75 


_ 

0 

360 

ASSI 

mi 23 

1.0 

C 

30 

- 

— 

0 

360 

— 

160,123 

1.0 

1 

— 

75 

40 

— 

w 

90 

160,123 

0.667 

1 


75 

40 

— 

- 

9 

160.123 

0.667 

1 

— 

20 

13 

— 

-r. 

135 

80,35 

1.0 

I 

— 

20 

13 

— 

- 

45 

80,210 

1.0 

1 

- 

20 

13 

- 

— 

135 

239,210 

LO 

1 

- 

20 

13 

— 


45 

239,35 

LO 


Conte curve plotter - 

Programma 1 


1 0 FQR 1 = 49360 TO 49461 : READJ : PQKE I , J : NEXT 

: rem 192 

20 FORIM9485TQ4962 3 ; READJ : PQKEI , J : NEXT 

; rem 201 

30 DATA 173,0,192,133,0,173,2,192,133,2,1 

73. 3. 1 92, 1 33, 3, 96, 165, 3, MI :rem 253 
40 DATA 3,192,165,2,141 ,2, 192,165,0,141 ,0 

,192, 96, 0,165, 3, 141, 3,1 92, 165: rem 96 
50 DATA 2,141 ,2,1 92,165,0,32,224,192,169, 

32.1 33,3,169,0,1 33,2,1 33 : rem 101 

60 DATA 0,164,0,162,0,145,2,230,2,232,224 

,255,208,247,145,2,230,3,169 :rem 37 
70 DATA 63, 197,3, 208, 2 27, 169, 0,162, 0,145, 
2,230,2,232 , 224 ,63,200,247, 1 45 

:rem 160 

80 DATA 2,141,63,63,76,208,192 :rem 199 


90 DATA 32,224,192,169,59,141,17,208,169, 

28,1 41 ,24 : rem 172 

100 DATA 208,169,4,133,3,169,0,133,2,133, 
0,162,0,164,0,169,3,145,2,230 

:rem 79 

110 DATA 2,232,224,255,208,247,145,2,230, 

3.1 69,7,197,3,208,225,1 69,3 : rem 17 

120 DATA 162,0,145,2,230,2,232,224,231,20 

8,247,1 45,2,141 ,231 ,7,76,208,192 

: rem 239 

130 DATA 0,0,0,0,32,224,192,160,255,162,1 
,169,1 , 32# 1 86, 255 , 1 69, 0 ;rem 49 

140 DATA 32,189,255,169,0,133,2,169,32,13 

3.3.1 62,64,1 60,63 : rem 3 7 

150 DATA 169,2,32,216,255,76,208,192,0,0, 

0,0,0 :rem 191 

160 DATA 169,1,162,1,160,255,32,186,255,1 
69,0,32,189,255 :rem 206 

170 DATA 169,0,162,0,160,32,32,213,255,96 

:rem 217 


Conte curve plotter - 
Programma 2 

14 SYS 49405 ;rem 106 

15 POKE46 , 7 1 : CLR : BASE® 8 1 9 2 :rem 20 

16 X = 1 60 : Y = 1 00 : N=1 s M0DE$ = "DRAW" :CP= 5 3272 : 
0M=53265 :BQ=PEEK (53265) AND 22 3: rem 33 

1 7 POKECP, 21 : POKEBM , BG ; PRINT" {CLR} " 

:rem 12 

18 DIMX (11 ) : DIMY (11 } : FORK=OTO 1 0 ; READX ( K> , 

Y (K) :NEXT :rem 47 

1 9 DAT A 0,0*0*-! ,0*1 *0,0, — 1 ,0, — ! , — 1 , - 1 *1 * 

0,0, 1,0,1, ->,1,1 :rem 90 

20 PRINTSPC (1 2) " [RVSjTIPO DI SCHERMO : ” : PR 

INT i tetti 186 

21 FRINT"1- ‘SCALA NORMALE* ( 320 , 200 > " : FRI 

NT” 2 - 1 SCALA SFEC I ALE * (320,244)" 

ì rem 4 


22 PRINT 11 3 - 1 SCALA DEFINITA DALL 1 UTENTE T " 

: r em 164 

24 PRINT : I N PUTSCH : I FSCR= 1 THENXP- 1 :YP = 1 :GO 



TO30 

: rem 

48 

26 

IFSCR=2THENXP* £ 1 : YP = 9/1 1 :GOTO30 




: rem 

83 

27 

IFSCR=3THENPRI NT: INPUT" DIMENSIONI 

CX,Y 


) : " ; XM , YM : IFXM=OORYM=OTHEN27 

: rem 

74 

28 

XP=320/XM: YP*2QQ/YM: G0TO35 

j rem 

26 

29 

GOTO 2 4 

; rem 

10 

30 

XM=3 20 : YM= INT ( 20 0/YP ) 

: rem 

157 

35 

SYS 49485 

: rem 

117 

40 

DEF FN FY(Y) =INT{Y/S) *320+ (YAND7) : 

DEF 


FN FX (X) *8* INT (X/8 ) 

: rem 

101 


42 DEF FN B1 (O) =FNFY ( Y) +FHFX (X) +81 92 : DBF 


FN 02 (X) =7- {7ANDX} :rem 9 


45 

BY=FNBl (0) : BI =FNB2 ( X ) : POKEBY 

, PEEK ( BY) O 


R { 2 1 B I ) 

: rem 

202 

50 

GETF5 

: rem 

175 

60 

IFF$="J"TH£N90 

: rem 

194 

61 

I FFS = " O" THEN 1000 

: rem 

32 

62 

IFF$="C“ THENl 300 

: rem 

24 

63 

I FFS-" I " THENÌ 320 

: rem 

33 

64 

IFF3- ,, P"THEN800 

: rem 

251 

65 

IFF$*"H"THEN9G0 

: rem 

245 

66 

IFF$ = r, Q”THEN3200 

: rem 

43 

68 

IFF$="A”THEN600 

; rem 

238 

70 

IFF$="M”THEN1 200 

: rem 

32 

76 

IFF$=" {HOME}"THENX=0:Y=Q:GOSUB4QQ; 

GOTO 


45 

: rem 

24 


78 IFF$= N {CLR) N THÉNSYS49405:X-1 60: Y = 1 00 :G 



0TO4 5 

: rem 

83 

80 

I FF$ = " S" THEN3 000 

: rem 

39 

82 

I FF$ = 11 L" THEN 3100 

: rem 

35 

86 

I FF$ = "T" THENPOKECP , 2 1 

: POKEBM, BO:PRINT n 



{ CLR } " : GOTO20 

: rem 

228 

88 

IFF$- n /"THEN5GG0 

: rem 

1 3 

89 

GOTO 50 

: rem 

1 5 

90 

J2- 1 5- (PEEK ( 56320 ) ANDT 5) 

: rem 

181 

95 

GETC6 : tF C$=" "THENl 40 

: rem 

42 

1 00 

I FC$ = " D"THENMODE$ »" DRAW" 

: GOTOl 40 




: rem 

123 

110 

I FC $ = " E" THENMODE3 = N ER AS E 

\ n : GOTOl 4 C 




:rem 

191 

1 30 

IFCS*" {FI } "THENN=1 - N : GOTO 1 40: rem 

254 

1 35 

N- 1 : GOTO 5 0 

: rem 

45 

140 

IFJ20RN THENJV=J2 

; rem 

23 

l 50 

X=X+X(JV) : Y» Y+Y { JV) 

: rem 

149 

1 60 

I FMODE6 = " DR AW" TH EN 180 

: rem 

230 

165 

GQSUB4G0 

: rem 

176 

1 80 

BY=FNB1 (0) :8I=FNB2 (X) 

; rem 

172 

190 

POKEBY, PEEK (BY)OR(2tBI) : 

GOTO90 




: rem 

138 


300 

I FX<0THENX = 0 : G0TO3 40 

: rem 

228 

310 

IFX>31 9THENX=31 9 ;GOTO340 

; rem 

193 

320 

IFY<OTHENY=0:GQT0340 

: rem 

232 

330 

IFY>1 99THENY=1 99:G0T034G 

: rem 

209 

335 

0 = 0 : GOT03 50 

: rem 

98 

340 

0 = 1 

:rem 

84 

350 

RETURN 

: rem 

120 

400 

RB=PEEK(BY( - (2tBI) : IFRB<0THENRB=0 

: rem 

8 

410 

POKEBY ,RB: RETURN 

: r em 

57 

600 

POKECP , 21 ; POKEBM, BO : PRINT" 

{CLR}" 

:rem 

58 

602 

PRINTSPC (8)*' {RVS} LINEA AD 

UN ANGOLO": 


PRINT 

: rem 

2 

606 

X$ = " ” : Y$=" w ; INPUT" PUNTO DI 

PARTENZA: 


( X , Y ) " ; X5 , Y$ : I FX$ * " " ANDY 5 = 11 11 THEN 6 2 0 

: r em 141 

610 I FX * VAL ( X$ ) ANDY “VAL ( Y$ 1 THEN 6 1 5 

:rem 80 

612 GOSUB400 : rem 173 

615 X* INT ( VAL (X$ ) *XP) : Y* INT {VAL ( Y$ ) *YP) 

: rem 127 

620 PRINT: INPUT" ANGOLO : M ; ANG : ANG = ANG*TT/1 8 
0 :rem 82 

625 GOSUB3360 : rem 2 33 

630 DX=COS (ANG) : DY=-SIN { ANG ) "YP/XP 

ìrem 122 

632 BY = FNBl (0) :BI=FNB2(X) : I FD^l THENPOKEBY 



,PEEK (BY)OR( 2 IBI) :G0T0635 

: rem 

125 

633 

GOSUB400 

:rem 

176 

635 

GETSS: LESSO" "THEN50 

: rem 

135 

638 

GOSUB300 : IFOUT 31 1 THEN 50 

:rem 

119 

640 

X-X+DX : Y - Y+D Y : GOTO 632 

: rem 

77 

800 

POKECP, 21 : POKEBM, BO: PRINT" 

{CLR}" 




; rem 

60 

302 

PRINTSPC* 1 3) " {RVS} PARABOLA 

PRINT 




: rem 

33 

305 

PRINT"EQUA2. PARABOLA: X=A*Yt2; DEFINÌ 


SCI 1 A 1 " 

: rem 

223 

810 

INPUT A:IFA=0THEN PRINT" USA 'O' 0 

* A * 


PER PLOTTARE UNA LINEA" : GOT08 ! 0 




: rem 

240 

et 8 

SG*SGN (A) : PRINT 

: r em 

1 85 

820 

INPUT" VERTICE: (X,Y) " ; CX ,CY :CX=CX 

*XP: 


CY=CY*YPt PRINT 

: rem 

78 

830 

PRINT" SPECI FICA ANGOLO TRA 

ASSE DI SI 


MMETRI A{ 2 SPAZI }E ASSE ORIZZONTALE:" 



: rem 

10 

8 35 

INPUTANG : ANG = ANG*1T/ 1 80 

: rem 

26 

338 

GOSUB3 360 

: rem 

239 

840 

GOSUB4 00 : X“0 

: rem 

175 

845 

Y=SQR(ABS (X/A) ) :GGSUB4450: 

I FO=l THENOl 


= 1 

r ; rem 

151 

848 

Y = - Y : GOSU B 4 4 5 0 : 1 FO = 1 TRENO 2 

■1 : rem 

235 

850 

X=X+1 *SG/XP 

: rem 

1 29 

852 

IFOl +02 = 2THEN01 =0 : 02 = 0 : X=CX : Y=CY : 

GOTO 


45 

: rem 

191 

855 

GETSS : I FSS O " "THENX=CX : Y=C Y: GOTO 4 5 



: rem 

1 58 

860 

GOTO 84 5 

: rem 

1 20 

900 

POKECP, 21 : POKEBM, BO: PRINT" 

{CLR}" 




: rem 

61 

902 

PRINTSPC (1 2) " { RVS } HPERBOLE 

"SPRINT 




: rem 

48 

905 

PRINT" EQUAZ . IPERBOLE: 1 Xt 2/At 2- Y t 2/Bt 


2 = 7 ‘ ; t 4 SPAZI [SPECIFICA * 

A * * 1 B 1 

(A,B 


)" 

: rem 

119 


910 I N FUTA , B : I FA= 0ORB = 0THEN PR I NT" A , B< > 0 " : 

GOTO910 :ccn 6 

920 PRINT: PRINT" ANGOLO TRA ASSE TRASVERSA 
LE E ASSE ORI Z - CONTALE : " :rem 139 
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930 
94 0 

94 S 

948 

950 

960 

962 

970 

972 

975 

980 

990 

1000 

1005 

1010 

1012 

101 5 

1016 

1020 

1025 

1100 

noe 

11 OS 


1NPUTANG : ANG b ANG*tt/ 1 60 :rem 22 

PRINT: INPUT" COORDINATE CENTRO (X,Y) 11 
;CX,CY:CX-CX*XP:CY*CY*YP : rem 184 

GOSUB3 36 0 ; BY=FNB1 (0) :BI»FNB2(X} iGOSUB 
400 :rem 137 

X=SQR ( At 2+B T 2 ) ; Y-0 : GOSUB44 50 ; X=-X : GOS 
UB4450 irem 177 

X=A : rem 116 

Y=SQR( (XI2/AI2-T) *Bt2) :GOSUB445G: IFO= 
1 TRENO 1 =1 : 

Y*-Y: GOSUB44 50 : IFO*l THENG2*! : 
X=-X:GOSUB44SO: IFO-1THEN03*! : 

Y = -Y :GOSUB4450: IFQ=1 THEN04=Ì : 

IFOl +02+03+04-4THEN01 =0:02=0: 

0 : X=CX : Y=CY : GOTO 4 5 : 

GETSS: IF5SO""THENX=CX:Y*CY: 


rem 57 
rem 232 
rem 230 
rem 235 
03=0 :04 = 
: rem 117 
GOTO 4 5 
; rem 1 57 

X=-X:X«X+l/XP:GOTO960 : rem 4 0 

POKECP, 21 : POKEBM , BO : PRINT" {CLR}" 

: rem 101 

PRINTSPC { 8 ) " {HVS } LI NEA TRA DUE PUNTI 
"SPRINT : rem 157 

X$ = ,,M SYS-"”: INPUT" PUNTO INIZIALE (X r 
Y) 11 ?X$,Y$ SPRINT : rem 69 

IFXS = ,,M ANDY$ = " M THENXl=X:Yl=Y:GOTOl 0 2 
5 : r em 3 

IFX=VAL ( X$ ) ANDY “VAL ( Y$ } THENl 020 

:rem 167 

GOSUB400 :rem 220 

XI =INT{VAL(X$) *XP) ♦ Y 1 = I NT { VAL ( Y$ ) *YP 
):X=XlìY*YÌ : rem 186 

INPUT"PUNTO FINALE (X,Y) : ";X2,Y2:X2 
= INT ( X2 *XP) : Y2*»INT ( Y2*YP) :rem 250 
IFX2-X1 *GTHENDX a 0;DY=SGN (Y2- Yl ) *1 :GO 
TO 1120 trem 87 

SLP«<Y2-Y)/(X2-X) sSY*SGN(Y 2-Y) :SX=SG 
N (X2-X ) : rem 1 B8 

IFABS (SLP} > 1 THENPY=SY* 1 : DX=SX* 1 /ABS ( 


2=Yl:D-l-D trem 251 

1190 GOTO! 130 trem 201 

1 20 0 POKECP, 21 :PGKE BM , BO : PRINT" {CLR } " 

: rem 103 

1210 INPUT 1 * CURSORE IN (X,Y): H ;X2,Y2;X2=X 
2*XP:Y2=Y2*YP:SYS 4948S : rem 58 

1 220 GOSUB400 : rem 217 

1 230 X=X2: Y=Y2:G0T04 5 : rem 

1 300 POKECP, 21 : POKEBM, BO: PRINT" (CLR } " 

:rem 

1302 PRINTSPC (9) " {RVS}CERCHIO O (ARCO)" :P 
ri NT : rem 162 

1 304 PRINT" EQUAZ * CERCH IO : Xf2+Yt2=Rt2. 

C I FICA IL RAGGIO (R):" :rem 

1305 INPUT R: PRINT :rem 

1307 P=1 : INPUT"COORDINATE DEL CENTRO: 

YJ ";CX,CY:CX=CX*XP:CY*CY*YP : PRINT 

:rem 237 


28 


1 04 


SPE 
127 
1 1 4 
(X, 


1309 PRINT" ANGOLO POLARE INIZIALE E FINAL 
E IN GRADI (INIZIALE, FINALE)" 

trem 233 

1310 Al ; A2S = " *' : INPUTAl $ r A2$ : IFAl $ = " " A 
NDA28 = " " THENAl =Q:A2=2* ì GOTO l 360 

:rem 172 

1315 A 1 - VAL (Al $ ) IA2=VAL(A2S) : I FAÌ >3600RA2 

>360THENl 310 ; rem 233 

1316 IFA2<AlTHENA2*A2+360 :rem 145 

1318 Al =A1 *W/1 80 : A2-A2*1T/1 80 : GOTOl 360 

: rem 1 06 

1320 POKECP ,21 : POKEBM, BO: PRINT" {CLR}" 

:rem 106 

1325 Al -0 : A2 = 2 * : PRINTSPC (1 4) " {RVS jELLISS 
E’ 1 SPRINT : rem 128 

1330 FRINT"EQUAZ- ELLISSE: Xt 2/At 2+YT 2/Bt 2 
= 1 ; { 7 SPAZI JSPECIFICA A,B ( A , B ) : ” 

trem 173 

1 335 INPUTA , B : PRINT :rem 21 0 

1336 IFA<BTHENPRI NT" IL MINORE NON PUO'ESS 

ERE PIU' GRANDE DEL MAGG IORE 1 " : GOTOl 3 
35 trem 141 

1 338 IFA= OTHEN PRINT" L * ASSE MAGGIORE NON P 
UO 1 ESSERE 0 ■ 11 : PRINT : GOTOl 335 

trem 26 

1339 P=B/A : R=A :rem 25 

1340 PRINT" ANGOLO TRA ASSE MAGGIORE ED AS 
SE ORI ZZ : " : I NPUT ANG;ANG^ANG*TT/1 80 

:rem 248 

1341 PRINT: INPUT"COORDINATE DEL CENTRO: ( 
X , Y) CX, CY:CX-CX*XP:CY=CY*YP: PRINT 

trem 186 

1345 PRI NT”VUOI FLOTTARE I FUOCHI? (S/N) M 

:rem 179 

1 350 GETDS : I FDS< > M S " ANDD?<> "N”THENl 350 

trem 146 

1 360 FRI NT : PR I NT" DENS I TA * PUNTI: (TRA 0*1 



SLP) : GOTOl 120 

: rem 

131 



: rem 

249 

Ilio 

DX=SX* 1 :D¥-5Y*ABS(SLP) 

: rem 

162 

1370 

V$="": INPUT VS 

: rem 

10 

1120 

GOSUB3360 

: rem 

1 6 

1380 

IFVS = " ì, THENV=1 * 5 1 GOTO 1 400 

trem 

228 

! 1 30 

BY=FNB1 {0} :BI-FNB2 (X> :IFD 

■ 1 THENPOKEB 

1390 

V=VAL(VS> : I FV< * 1 OR VMTHENPR INT” FUORI 


Y,PEEK(BY)OR[2tBI) :GOTQl 1 70: rem 

210 


INTERVALLO" : GOTOl 370 

: rem 

241 

1 140 

G0SUB4OO 

: rem 

21 S 

1395 

V=l/V 

: rem 

27 

1 1 70 

IFINT (X) < >X 2THEN1 1 74 

: rem 

236 

1 400 

GOSUB3360 

: rem 

1 7 

1 1 72 

IFINT(Y) =Y2THEN45 

; rem 

79 

1 405 

GOSUB400 

: rem 

222 

1 1 73. 

Y=Y+DY : GOTOl 1 80 

: rem 

192 

1430 

DR=V/R 

trem 

114 

1 1 74 

IFINT(YK>Y2THEN1 177 

: rem 

245 

1 44 0 

FORAG- Al TOA2STEPDR 

:rem 

207 

1 1 75 

IFINT(X)=X2THEN45 

: rem 

80 

1445 

Xl =X : X = R*COS E AG ) :DI=SGN(X- 

-XI) : GOTOl 4 

1176 

X=X+DX : GOTOl 1 80 

: rem 

1 92 


50 

: rem 

125 

1 177 

X=X+DX : Y=Y+DY 

: rem 

117 

1450 

Y=SQR ( RI 2-Xt 2 ) * [P) *DI 

: rem 

32 

1 1 80 

GETS9: IFSS=" {FI }"THEN50 

: rem 

251 

1480 

GOSUB40 00 

: rem 

17 

1 1 82 

IFSS=" {F3}"THENDX=-DX:DY= 

-DY:X2- 

:Xl : Y 

14 92 

next 

: rem 

1 5 


1 500 
1 520 
1 530 

1 540 
1 600 
3000 

3005 
3008 
3080 
31 00 

31 05 
310 6 
3110 
3200 


IFFS="C"THENl 600 
X-SQR(AT 2-BT2) :Y* 


: rem 
: rem 


121 
1 1 6 


IFD=OORD$="5"THENGQSUB445Q:X=-X:GOSU 
B4 450 : rem 61 

GOTOl 600 trem 202 

X=CX:Y=CY:GOTG4S :rem 63 

POKECP, 21 ; POKEBM, BO: PRINT" {CLR} 11 

: rem 103 

SYS49558 : rem 21 4 

SYS49485 : rem 216 

GOTO 50 trem 1 05 

POKECP, 21 : POKEBM, BO: PRINT 11 {CLR}" 

: r em 10 4 

SYS49600 trem 203 

SYS49485 : rem 21 5 

GQ TOSO : rem 99 

POKECP, 21 : POKEBM, BO: PRINT" {CLR}" 

:rem 105 
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3210 PRXNT3PC (3> " {RVS]USI LO SCHERMO" SCR; 

: PRINT" {OFF} { "XM" , "YM" ) " : FRI NT 

: rem 1 35 

3220 PRINT" POSI Z * CURSORE : X= H X/XP; PR1NTSP 
C ( ì 7) ,1 y- ,i y/yp :rem 237 

3230 PRINT: PRINT" UN TASTO PER RIENTRARE I 
N BXTMAP" : rem 117 

3240 GETD$: 1FD$ =" " THEN324 0 : rem 187 

3250 5YS4 9 4 85 : GOTO 50 : rem 175 

3360 PRINT : PRI NT"DRAW 0 ERASE (D/E)"; 

;rem 149 

3370 GET DIR$ : I FD IR$ = "D "THENMODE8 * "DRAW" : 

D= 1 ;SYS49485:GOTO3390 :rem 221 

3380 I FDI R$ = "E"THENMQDE$= " ERASE" : D=0 : SYS 
4 9 4 8 5 ; G0TO3 3 9 0 :rem 3 

3385 GOTO 3370 :rem 217 

3390 RETURN tzem 175 

4000 I FF$= "C"THENOX=X : X=X*XF+CX : Y^Y* YP+CY 
: GOTO 4 500 : rem 170 

4450 XA=(X*COS (ANG) +Y*SIN(ANG) ) *XP 

:rem !9 

4 4 60 YA= ( -X* SIN ( ANG) +Y*CQS (ANG) ) *¥P 

:rem 67 

4470 OX-X : GY-Y : X=XA+CX : Y-YA+CY :rem 226 
4500 GOSU8300: I FO = 1 THENGOTO 4 570 itera 154 
4505 BY=FNBl (0) :B1=FNB2 (X) :rem 225 

4510 I FD tì 1 THENPOKEBY , PEEK ( BY ) OR ( 2 TB1 ) :GOT 
04570 txem 145 

4550 GOSUB4QO 226 


4570 X=OX:Y=OY: RETURN :rem 158 

5000 POKECP, 21 ; PGKEBM, BO : PRINT" {CLR}" 

;rem 105 

5010 PRI NT" BATTI 'GOTO 15' PER RIENTRARE 
NEL{ 7 SPAZI } PROGRAMMA" : END: rem 33 



UBRERIA JACKSON 



A Milano, 

in via Mascheroni 14. 
la prima software 
libreria italiana 


rr 


A Milano, in via Mascheroni 14, 

Te). 02-437385 


Vieni a trovarci: 
ti aspettiamo. 


Un tempo si andava in libreria per it gusto deila 
scoperta, per il piacere di esser informati sulle novità 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 
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NON FARTI SUPERARE DAL PROGRESSO 




Aggiornati con gli 

ENCICLOPEDIA 
DI ELETTRONICA 
& INFORMATICA 

aa fascicoli smrnmm da etlegars 

MV IN DUE NUOVI B SPLENDIDI VOLUMI 


PER TE, PER IL TUO LAVORO, PER I TUOI STUDI... 


i Aggiornamenti 

le nuove conquiste dell'Elettronica di Base, 
delle Comunicazioni, dell'Elettronica 
Digitale, dei Microprocessori, 
delPI nforma t ica . * . 


2 II personal computer 

tutto quello che c*é da sapere sul Personal 
Computer: che cos’è e cosa fa; come fa 
e come si fa; i linguaggi di programmazione; 
le applicazioni*.. 


E.l. si aggiorna e ti aggiorna 


il 18 settembre 

batti sul tempo il progresso! 
Corri in edicola a comprare 
primo fascicolo, 


AHVUKA UrXA VvLIA 

“PRIMI SUL FUTURO ’ 1 


GRUPPO 
EDITORIA LI 
JACKSON 


fiuovidea 


di S. Morris 

trad, ed adatt. 

di S, Colombo 



Il gioco del fiackgammoa ha avu- 
to Dagli aitimi anni una larghis- 
sima diffusione anche in Italia: è 
un gioco d’azzardo, che può tut- 
tavia essere molto divertente - 
al contrarlo del poker - anche se 
giocato senza rischiare nulla. 


P er chi non le conoscesse, ne riassu 
miamo brevemente le regole. Il co* 
siddetto "tavoliere" 1 di gioco è suddiviso 
in quattro diversi settori, due per gioca 
tore* 

Rifacendosi a come appare il tavoliere 
sullo schermo, poiché il computer gioca 
con le pedine “piene" 1 e voi con quelle 
“vuote", i vostri due settori sono quelli 
inferiori: settore interno {lettere X-S) e 
settore esterno {lettere R-M), Il settore 
interno del computer è contraddistinto 
dalle lettere A-F, mentre quello esterno 
dalle lettere G L La configurazione ini- 
ziale delle pedine è quella visualizzata. 
Noterete che si dispone di quindici pedi- 
ne a testa, ed ogni settore è formato da 
sei “frecce"" dì diverso colore. Scopo del 
gioco è muovere le proprie pedine — a 
seconda del tiro dei dadi - fino a portar- 
le tutte nel proprio settore interno, 
quindi - sempre a seconda del tiro del 
dadi - toglierle dal tavoliere. Vìnce chi 
per primo riesce a togliere dal tavoliere 
tutte le proprie pedine. Ma procediamo 
con ordine. Si Inizia tirando un dado a 
testa per stabilire a chi tocca la prima 
mossa; il tiro dei dadi avviene automati 
camente sullo schermo e viene — sem- 
pre automaticamente - rieffettuato in 
caso di parità. Stabilito a chi tocca ini- 
ziare, viene visualizzato il tavoliere con 
la configurazione iniziale. Il senso di mo- 
vimento delle pedine è mostrato in figu- 
ra. Da questo momento in poi, per deci- 
dere la propria mossa, si tirano sempre 
due dadi contemporaneamente. Ponia- 
mo il caso che abbiate tirato 3 ed l; 
potete muovere una pedina di tre "frec- 
ce” nel vostro senso di moto ed un’altra 
pedina (oppure sempre la stessa, ed in 
questo caso le frecce diventano quattro) 
di una freccia, sempre nello stesso sen- 
so. Non potete andare a “cadere” su 


frecce occupate da più di una pedina 
dell avversario. Esempio: con 3 ed 1 
non potete muovere da L in O con il 3 
e quindi da O in Q con l'I, perchè Q è 
occupata da più di una pedina dell’av- 
versario. Potete invece muovere da L 
in 0 una pedina, sfruttando il 3, e da 
A in B un’altra pedina, sfruttando l"l. 
Meglio ancora, con 3 ed 1 potete muo- 
vere Q in T con il 3 e S in T con l'I. 
andando cosi ad occupare la freccia T 
con due delle vostre pedine, precluden- 
done l’occupazione all’avversario, 
Esiste un altro motivo per cui non è 
consigliabile lasciare pedine isolate su 
una freccia: se l’avversario capita su 


una di queste pedine "solitarie", ve ia 
mangia; in questo caso la pedina man- 
giata viene posta sul “bar”, la linea ver- 
ticale di separazione centrale contraddi- 
stinta dalla lettera V. Al tiro successivo 
il giocatore mangiato dovrà obbligato- 
riamente rientrare nel settore interno 
de N T av versar io (e quindi nella posizione 
più lontana dal proprio settore interno), 
usando il valore di almeno uno dei due 
dadi tirati. Esempio: siete stati mangiati 
e dovete rientrare; avete tirato 6 e 2; 
con il sei non potete rientrare, poiché 
la freccia Nòe occupata da più di una 
pedina dell’avversario (ricordiamo che 
la numerazione delle frecce segue 31 vo- 
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stro senso di moto), quindi siete obbliga- 
ti a rientrare con il 2, e quindi a muove- 
re il 6 con la stessa pedina, oppure con 
un'altra di vostra scelta. 

Una volta che siate riusciti a portare 
tutte le pedine net vostro settore inter- 
no, con il solito tiro di dadi potete 
estrarre le pedine dal tavoliere, oppure 
spostarle - come prima visto - a 11' inter- 
no del settore stesso. Per capire quale 
pedina è possibile estrarre immaginate 
di spostarla come sempre nella direzio- 
ne del moto: se il valore dello sposta- 
mento è tale da superare la lettera X, 
la pedina verrà estratta, altrimenti ver- 
rà semplicemente spostata all interno 
del settore. 

Un’ultima particolarità: nel caso il tiro 
dei due dadi sia un doppio - ad esem- 
pio 4e4, o3e3- esso vale doppio: 
con 3 e 3 potrete spostare quindi quat- 
tro pedine dì tre frecce, oppure la stes- 
sa pedina (se è possibile) di dodici frec- 
ce. 

Naturalmente, non è possibile spiegare 
qui le strategie di gioco del Backgam- 
mon, sulle quali esistono decine di volu- 
mi: per imparare, come sempre, la cosa 
migliore è giocare. Non abbiate timore, 
perché il computer non vi permetterà 
di compiere mosse illegali, e nel con- 


tempo è anche un discrete giocatore. 

I giocatori esperti di Baekgammon tro- 
veranno in questo programma un av- 
versario a volte un po' sprovveduto, ma 
in grado comunque di divertire ed alle- 
nare... Si pensi che l'avversario che ab 
biamo di fronte non è il solito amico, 
ma una pìccola “intelligenza artificiale" 
implementata sul nostro computer. 
Passiamo ora ad esaminare ì semplici 
comandi del programma Per tirare i 
dadi è sufficiente premere la barra spa- 
ziatrice, e per muovere la pedina basta 
premere il tasto corrispondente alla let- 
tera della freccia sulla quale si trova la 
pedina stessa. Poiché il calcolatore vi 
chiede sempre quale sia la mossa con 
il primo dado tirato, se desiderate muo- 
vere prima con il valore del secondo 
dado, premete Z. Se premete Z due 
volte, significa che siete bloccati e non 
potete muovere alcuna pedina; in que- 
sto caso la mossa passerà al computer. 
Infine, se una delle vostre pedine è su! 
bar e dovete rientrare, scegliete - even- 
tualmente - tramite il tasto Z con quale 
tiro rientrare e premete Y: la pedina sul 
bar rientrerà in base al tiro visualizzato 
sullo schermo. 

Questo è uno dei programmi dì Back- 
gammon scritti in BASIC piu veloci che 


ci sia capitato di vedere, e l'attesa per 
la mossa del computer è minima, ren- 
dendo rapida ed appassionante ogni 
partita giocata, Se vi appassionate al 
gioco e desiderate saperne di più sulle 
sue strategie, esistono in commercio 
molti libri sull 1 argomento, che coprono 
ogni possibile eventualità. 


Note per rntlUno in 
C16-PLUS/4 

Il programma, con una pìccolissima mo- 
difica, gira perfettamente anche su C16 
e Plus/4. Chi non disponesse della cas 
setta allegata alla rivista - su questuiti- 
ma è già presente il programma modifi- 
cato insieme agli altri programmi per 
Cl6-Plus/4 - dovrà semplicemente 
modificare la linea 100 del programma 
nel modo seguente: 

100 COLORO,! : COLOR4J : CO- 
LORI, 2 : WZ« l 

ed eliminare la linea 320. Con queste 
modifiche, il programma sarà reso per- 
fettamente compatibile con questi due 
calcolatori. Buon divertimento! 


configurazione iniziale del Baekgammon 



senso dei moto del giocatore 
senso del moto del computer 
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Backgatnmon par C64, CI6 e PIus/4 

100 PO KE 5 3 2 8 0 , 0 ; POKE 5 3 2 B 1 ,0:POKE646,1 ìWZ* 
1 : rem 165 

110 W(1 ) =-300ìW( 2) =500:W(3) =1 00 rrem 49 
120 W£4) =-300:W(5) =-500 :W £6) =-l 200 

rrem 199 

1 30 W(7) =70;W(8) *700 :rem 5 

140 DIMA${6) ,A%(25) ,P%( 12) ,Q%( 12) 

rrem 80 

150 7 SU 1 11 : D$ = " { 12 GIU' }" :rem 118 

160 DEFFNA(X) =INT £X*RND(7) +1) rrem 167 
170 A$£l}="{RVS}{ 3 SPAZI HGIU'H 3 SIN} 

Q {GIU 1 } { 3 SIN}{ 3 SPAZI } 11 1 rem 179 
180 A$(2)- M {RVS}{ 2 SPAZI }Q{GIU T } 

{ 3 SINH 3 SPAZI } {GIU 1 } { 3 SIN}Q 
{ 2 SPAZI} 11 : rem 134 

190 A$ (3) = " {RVS}Q{ 2 SPAZI} {GIU 1 } 

{ 3 SIN} Q (GIU'H 3 SIN } { 2 SPAZl}Q 
" ^ rrem 89 

200 A$ ( 4 ) =" {RV3 } Q Q{GIU T }{ 3 SIN} 

{ 3 SPAZI HGltJ’H 3 SIN } Q G" : rem 35 

210 A$ (5] = " {RVS } G Q { GIU 1 } { 3^SIN} Q 

(GIU'H 3 SIN}Q Q 1f irem 246 

220 A$ (6) = " {RVS}Q QfGlU 1 } { 3 SIN}Q 0 

(GIU 1 }{ 3 SIN } Q Q" :rem 201 

230 { 10 SPAZlT" i GOTQ24 50 rrem 210 

240 REM :rem 122 

250 F=G : BH=0 :BP=0 ;NH^1 5 :NP=1 5 :rem 162 

260 RESTORE: FORICI TOl 2; HEAOA% (I) : rem 240 

270 A% £25-1)-- A%(I) :NEXT trem 16 

280 DATA2,0, 0,0,0, -5,0, -3,0, 0,0, 5 

rrem 65 

290 PRINT"{GIU' }SPAZIO PER INIZIARE 

rrem 203 

300 PRINT"LA PARTITA « . * " :rem 144 

310 A$ = " rr :GETA$ : IFA$<>" "THEN31 0: rem 168 
320 POKE5 327 2 , 21 rrem 36 

330 PRINT" {CLRH 8 GIU 1 } { 3 SPAZI }C64 

{ 3 SPAZI }TU" : rem 21 6 

340 PRINT" {HOME} IO GIOCO CON I (CYN)Q 

{WHT}, TU CON I (CYN}W{WHT} m : rem 155 
350 GOSUB1 730:1 FP=QTHEN3 50 : rem 81 

360 GOSUB2 1 40 : GOSUB2 1 40 ; GOSUB2 1 60 

; r em 22 8 

370 GOSUB ì 9 1 0 : F-ì :FM = 1 1 1 FP>QTHEN930 




:rem 

129 

380 

GOTO430 

: rem 

107 

390 

REM MOSSA DEL GIOCATORE 

: rem 

117 

400 

GOSUB2Ì 20 

: rem 

21 7 

410 

PRINT' 1 {WHT} SPAZIO PER TIRARE 

I DADI" 



:rem 

74 

420 

A$ * " ” : GET A$ : I FA$ < > " " THEN42 0 

:rem 

172 

430 

GOSUB1 730 : K = G :M=2 : 1 FP-QTHENM 

= 4 




:rem 

94 

440 

FM=0 : GOSUB2 1 20 : GOSUB900 

: rem 

106 

450 

PRINT" { WHT} LA TUA MOSSA CON 

IL";P 



(C YN } 11 ; 

;rem 

i 

460 

A$ = " ” : GETA$ : IFA5 = " "THEN460 

: rem 

119 

470 

N=ASC [ A$ ) -64 

;rem 

74 

480 

IFN>2 6QORN< 1 THEN44 0 

: rem 

114 

490 

PRINT A? : IFN=2 5THEN720 

: rem 

18 

500 

IFN=26THEN76G 

: rem 

227 

510 

IFBH=OTHEN540 

: rem 

228 

52 0 

GOSUB21 20 : PRINT" (WHT) SEI SUL 

BARI 



(CYN } " 

: rem 

86 

530 

GOSUB21 40:GOTO440 

: rem 

234 

540 

REM 

;rem 

125 

550 

IFA% (N) > 0 THEN 580 

: rem 

104 


560 GQSUB2 1 20 : FRI NT" {WHT } NULLA QUI!i{CYN] 
»* : r em 6 0 


570 

GOTO530 

; rem 

109 

580 

IFN+P<25TH£N620 

: rem 

95 

590 

IFHl=NHTHENF=G:GOTO80Q 

; rem 

126 

600 

GOSUB21 20: PRINT 11 {WHT} FUORI 

DAL TAVOLO 


{CYN}" 

; rem 

181 

61 0 

GOTO530 

; rem 

1 04 

620 

XFA% (N+P) >-2THEN650 

: rem 

14 

630 

GOSUB21 20 : PRINT 1 ' { WHT } SPI AGENTE , E 1 

BLO 


CCATOl {CYN}" 

: rem 

41 

640 

GOTO530 

: rem 

107 

650 

Al £N) =A% (N) - 1 : GOSUBl 910:N=N+P 




: rem 

83 

660 

IFA% (N) >- 1 THEN6 90 

rrem 

1 54 

670 

A% {N ) = 0 : BP=BP+ 1 :GOSUB21 20 

:rem 

133 

680 

PRINT" {WHT}MI HAI MANGIATO! {CYN} 11 




: rem 

236 

690 

A% £N) = A% (NI +1 :M=M-1 ; GOSUBl 91 0 




rrem 

54 

700 

P=Q:IFM>0THEN440 

:rem 

192 

710 

GOTO930 

: rem 

109 

720 

IFBHTHEN740 

: rem 

1 24 

730 

GOTO 560 

: rem 

1 1 0 

740 

IPA% ( P) < * 1 THEN630 

: rem 

147 

750 

N=0 : BH a BH- 1 :GOTO650 

: rem 

78 

760 

IFK*OTHEN790 

: rem 

1 79 

770 

GOSUB21 20: PRINT" {WHT} PERDI 

LA MOSSA! 


{CYN}" 

: rem 

55 

780 

GOSUB2 1 4 0 : GOTO 9 3 0 

: rem 

245 

790 

K=P : P=Q: Q=K ; GOTO440 

: rem 

174 

800 

IFN+F> 25THEN8 50 

; rem 

97 

810 

NH=NH-1 : IFNHTHEN840 

: rem 

138 

820 

GOSUB 21 20: PRINT 1 ' {WHT} HAI VINTO' {CYN}" 



: r em 

1 7 

830 

GOSUB 21 40 :G0T02 34G 

; rem 

30 

840 

A% (N) =A% (N} -1 : N = 0 : GOTO690 

;rem 

72 

850 

FORI = 1 9TON- 1 

: rem 

195 

860 

IFA% £1) <=0THEN390 

:rem 

166 

870 

GOSUB21 20: PRINT" {WHT] NON PUOI* PUOI 


{CYN}"; 

rrem 

97 

880 

PRINT" {WHT} MUOVERE IN {CYN} 

" ;CHR$ (1+6 


4) : G0T053 0 

: rem 

69 

890 

NEXT : G0TO8 1 0 

: rem 

236 

900 

HI = Q : FORI = 1 9T024 

: rem 

1 77 

91 0 

IFA% (I) > 0THENHI =HI +A% ( I } 

: rem 

80 

920 

NEXT: RETURN 

: rem 

244 

930 

REM 

: rem 

128 

940 

K= 0 : GOSUB21 20: PRINT" { WHT } E * 

IL MIO TU 


RNO{CYN)" 

:rem 

1 

950 

GOSUBl 730 :M=2 ; IFF*QTHENM=4 

: rem 

115 

960 

FM-0 : IFBP>0THENl 1 70 

: rem 

96 

970 

PI-0:FORI-lTO6 

: rem 

87 

980 

IFA% (I) <0THENPI-PI-A% (I) 

rrem 

103 

990 

NEXT: IFPI=NPTHENF=0: GOTO! 250 ; rem 

59 

1 000 GOSUB 1 81 0 : GOSUBl 390 

: rem 

146 

1010 IFQM>0THEN1 140 

: r em 

82 


1020 IFPM>0THENN*P% (X) rGQTOl 050 ;rem 110 
1030 GOSUB2Ì 20 : PRINT" (WHT } NON POSSO MUOVE 


RE {CYN } " -rem 90 

1040 G0SU B2 1 4 0 : GOTO 3 90 : rem 27 

1050 GOSUB2 1 20 : PRINT" (WHT } CON IL"P;"{CYN} 

n * . C ^ 



n . 

f 

: rem 

57 

1060 

PR I NT' 1 { WHT } MUOVERO 1 " ; CHR$ ( 6 4 +N ) " 



{CYN}" 

: rem 

68 

1070 

A% (N) =A% £N) +1 : GOSUBl 91 0:N 

=N~P 




; rem 

128 

1080 

IFAI (N) OTHENì 1 1 0 

: rem 

1 88 

1 090 

A% (N ) - Q : BH=BH+ 1 :GOSUB21 20 

: rem 

162 

1 1 00 

PRINT" {WHT} MANGIATO 1 {CYN} 

,r rrem 

168 

ino 

Al (N) =A% (N) -1 iM=M~l : GOSUBl 91 0 




: rem 

92 

1 1 20 

K=1 : P=Q : IFM>0THEN96G 

rrem 

231 
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1130 

GOT039O 

: rem 

154 

1 1 40 

IFPM=0THENl 1 60 

: rem 

86 

1 1 50 

1FPM<QMTHENN=P% (XJ : GOTOl 050 

: rem 

222 

1 160 

N = Q% (Y) ì K ■ P : P = Q : Q » fC : GOTO 1 050 




; rem 

233 

1 1 70 

IFAI (25-Q) C2THEN1 21 0 

: rem 

85 

1180 

IFA4 (25-P) < 2THEN1 200 

: rem 

84 

1190 

GOTOl 030 

: rem 

200 

12 00 

N = 2 5 : BP=BP- 1 S COTO! 050 

: rem 

231 

1210 

IFA% (25-P) <2THENl 230 

; rem 

81 

12 20 

K - P ; P»Q : Q= K : GOTO 1 200 

: rem 

254 

1230 

GOSUB1 81 Gs IFQM<PMTHENl 220 

: rem 

68 

1240 

GOTOl 200 

:rem 

195 

1250 

I FAI ( P) >=0THEN1 320 

: rem 

254 

1260 

GOSUB21 20 : PS I NT" { WHT } U5C I RO 

1 {CYNÌ 

n . 
t 



: rem 

244 

1 2 70 

PRINT" (WHTjCON IL"P" {CYN}" 

srem 

72 

1280 

NP=NP-1 S IFNPTHENl 31 0 

: rem 

253 

1290 

GOSUB21 20: PRINT" (WHT} HO VINTO! {CYN}" 



: rem 

8 

1 300 

GOSUB21 4 0 : GOTO 2 4 1 0 

: rem 

69 

1 310 

N=P : A% (N) *A4 (N) +2:GOTOl ì 1 0 

: rem 

180 

1 320 

FORI - STO 1 STEP - ì 

: rem 

215 

1 330 

IFAi (I ) <0ANDI>PTHEN1 000 

:rem 

92 

1 340 

IFAi (IX0THEN1 360 

: rem 

1 88 

1350 

NEXT 

; rem 

8 

1 360 

GOSU821 20 : PRINT" (WHT }FARQ 1 

USCIRE 


{CYN}" ; 

: rem 

19 

1 370 

PRINTCHR$ (64+1) ; " {WHT} CON 

IL"P" 



{CYN J M 

; rem 

1 80 

1 380 

P“ X : GOTOl 280 

: rem 

2 24 

1 390 

REM 

; rem 

177 

1 400 

IFKTHENl 420 

; r em 

149 

1410 

GOSUB21 20 S PRINT" {WHT} STO PENSANDO 

* * - 


{CYN} H 

: r em 

146 

1 420 

IFPM-0THEN1 560 

: rem 

91 

1 430 

IFHI^NHTHENl 71 0 

: rem 

179 

1440 

E= - 99 99 : FORI a 1 TOPM : H = 0 

: rem 

99 

1450 

U=P% (I) ! V*W (7) *U 

: rem 

150 

14 60 

A% (U) -A* tu) +1 ; IFA% (U-P) Cl THEN - ! 4B0 




: rem 

55 

1470 

H= 1 : A4 (U-P) =0 : V=V+W (8) :IFU>1 8+PTHENV 


«V+450 

; rem 

252 

1480 

Al {U-P) =A% (U-P)-l 

: rem 

122 

1490 

FOR J = 1 TO 2 4 : 1 F A % £J) >-0THENl 52 0 




: rem 

2 26 

1 500 

L~6 : IFAi (J) >- 6THENL h - Ai ( J) 

: rem 

214 

1 510 

V=V+W ( L) -200* (L“l ) * (J<7) 

; rem 

251 

1 520 

NEXTJ : IFV>ETHENE tì V:X*I 

: rem 

1 8 

1 530 

A% (U) *Ai fU) -1 

s rem 

124 

1 540 

IFH=1 THENA4 [U-P) =0 

: rem 

52 

1 550 

Ai (U-P) =A% (U-P) +1 ; NEXTI 

: rem 

56 

1560 

IFKOR (QM^O ) THENl 700 

: rem 

1 54 

1 570 

D-- 9999: FORI *1TOQM:H=0 

: rem 

103 

1580 

U=Q% ( I ) : V-W ( 7 } *U 

: rem 

155 

1 590 

M (U) =A% (U) +1 : IFA% (U-Q) <1 THENl 61 0 



: r em 

55 

1600 

H=1 : A4 (U-Q) *0 : V=V+W ( 8 ) : IFU>1 8+QTHENV 


“V+450 

: r em 

249 

1 610 

A% (U-Q) =A% (U-Q)-l 

s rem 

119 

1620 

FORJ 34 ! T02 4 : IFA4 (J) >»0THEN1 650 




; rem 

225 

1630 

L=6: IFAi (J) >- 6TH£NL=- A4 (J) 

: rem 

21 e 

16 40 

V=V+W ( L) -200* (L*l) * (J<7) 

: rem 

255 

1 650 

NEXTJ: IFV>DTHEND=V:Y=I 

: rem 

21 

1660 

A4(U}=A4(U)-1 

: rem 

128 

1670 

IFH^l THENAi (U-Q) *0 

: rem 

57 

1680 

A4 (U-Q) = A% (U-Q) +1 : NEXTI 

: rem 

62 

16 90 

QM*1 2 : IFD>ETHBNPM=1 2 

: rem 

10 

1 700 

RETURN 

: rem 

1 68 


1710 

X=FM: Y*QM:PM=SGN (PM) :QM=5GN £QM) 

; rem 

63 

17 20 

GOTO! 700 

: rem 

203 

1730 

I FFMTHENl 7 SO 

: rem 

236 

1740 

p- FNA ( 6 ) : Q*FNA ( 6 ) :T=TI 

: rem 

65 

1750 

IFTI-T> 1 20 THENl 770 

s rem 

73 

1760 

P=P+1 : IFP>6THENP=1 

: rem 

129 

1770 

Q“Q + 1 : IFQ>6THENQ*1 

: rem 

134 

1780 

PRINT 11 {HOME } { 3 DESpVfDS;' 1 

(WHT) 11 

A$ (P 


1 { 2 DES) ( 2 SU}";A$(Q) 

: rem 

85 

1790 

IFTI-T<4? OTHENl 750 

: rem 

75 

1 800 

RETURN 

: rem 

169 

1 810 

REM 

: rem 

174 

! 820 

PM = 0 : QM^Q : FORICI T024 

: rem 

251 

1 830 

IFAI (I) >*0THEN1 900 

: rem 

255 

1 840 

I F I- P< 1 THENl 870 

: r em 

142 

1 850 

IFAi (I-P) >1 THENl 870 

: rem 

72 

1 860 

PM=PM+1 ; Pi ( PM ) * I 

; rem 

197 

1 870 

IFK>OORI-Q<1 THENl 900 

: rem 

230 

1 880 

IFA% ( I-Q) >1 THENl 900 

s rem 

70 

1 390 

QM=QM+1 :Q% (QM) *1 

: rem 

204 

1900 

NEXT: RETURN 

: rem 

35 

1910 

REM 

; rem 

1 75 

1920 

B$ = " { HOME } { 3 GIU 1 )" :W$ = " {GIU' } {SIN} 


11 :T'0:GOSUB2Q20 

: rem 

86 

1930 

B$ ”B$ +D$ +LEFT9 £D$,8) :W$“" ( SO > {SIN}" 

: r em 100 

1 940 

T-l : GOSUB20 20 

s rem 

14 

1 950 

PRINT" {HOME}";D$;SPC (21 ) ; 

; rem 

102 

1 960 

1FBP=OTHENPRINTZ$:GOTO! 980 

: rem 

221 

1 970 

FORI ® 1 TOBP : PRINT" (CYN}Q {SIN}” ; : 

NEXT 



: rem 

112 

1 980 

PRINT" (HOME) 11 ;D$; " { 2 GIU* 

)" f SPC £21 ) 


t 

; rem 

10 

1 990 

I FBH = 0THENPR I NT 2$ : GOTO20 1 0 

t rem 

201 

2000 

FORI = 1 TOBH : PRINT" {CYN}W (SIN]" ; : NEXT 



: rem 

95 

2010 

RETURN 

: rem 

163 

2020 

FORICI TOl 2; V=T* (25-1) -I* (T 

*0) 

; rem 

147 

20 30 

IFV<>NANDF>0THEN2 1 T 0 

: rem 

236 

2040 

K$ = " " 

: rem 

172 

2050 

PRINTB$SPC ( 3*1- ( I > 6 > -1 ) ; 

: rem 

107 

2060 

IFAi (V) -0THEN21 00 

; rem 

195 

2 0 70 

K=209: IFAi (V) >0THENK=21 5 

: rem 

127 

2080 

FORJ-1 TOABS [A4 (V) ) 

: rem 

64 
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2090 PRIMT 11 {C YN } "CHRS (K) ;W5; : NEXT 




: rem 

66 

2100 

PRINTAS 

: rem 

181 

2110 

NEXT: RETURN 

: rem 

29 

2120 

REM 

: rem 

169 

2130 

PRINT"{HQME}"Z?Z$;Z$; 

Z$ " { HOME } " ; 

: RET 


URN 

: rem 

219 

2140 

FORI - 1 TO 2 0 0 0 : N EXT 

: rem 

67 

21 50 

RETURN 

: rem 

168 

2160 

REM 

: rem 

173 

2170 

WS=”T (<M>) {GIU 1 ] { 3 

SIN}T [ <M> ] 



{GIU 1 } { 3 SIN)T Y{GIU i H 3 SIN}G H 
{GIU'H 3 SIN)B -{GIU T }{ 3 SIN}Tb 
{GIU * } [ 3 S I N } H G { GIU 1 } { 3 SIN}[<M>] 
[<@>] [ <G> } " : rem 13 

21 B0 PRINT" {CLR} { 2 G I U ' } " : FORI = 1 T02 1 

;rem 47 

2190 PRINT" ÉGRNHRVS} ";SPC{18);" ";SPC(1 
8 ) " : rem 129 

2 200 NEXT; PRINT" {HOME} {GIU 1 J=65;K=T 

srem 81 

2210 GOSUB2 2 80 : GOSUB2 230 : rem 151 

2220 PRINT" ";D$;LEFT$(D$,9) :J»88:K=-1 

! rem 5! 

2 2 30 GQSUB2 2 80 : GOSUB2 2 80 ; PRI NT" {HOME} 

{ 2 GIU* }" :rem 21 7 

2240 GOSUB2300 :GOSUB2300 :PRINTD$ ; rem 187 
2250 tf$="(<M>3 £<T>] t<G>l{GIU l }{ 3 SIN } Y 
T { G I U 1 } { 3 SINlH G {GIU 1 } { 3 SIN)B - 
TCIU'H 3 S I N }G hJgIU r } ( 3 SIN}T Y 
(GIU'H 3 SIN }T X<M>] {GIU* } { 3 SIN} 

[ <G>] [ < M > } " ;rem 234 

2 2 60 GOSUB2300 ; GOSUB2 300 : rem 142 

2270 PRINT" [HOME} {GIU' } 11 ; D$ ; SPC [ 1 9 ) 

{RVS} [RED }Y (OFF }{C YN} RETURN 

: rem 144 

2280 FORI=lT06: PRINT" {GRN} {RVS} 

[ 2 SPAZI }";CHR$ (J) ; :rem 144 

22 90 J^J+K; NEXT: PRINT" RETURN ; rem 237 
2 300 PRINT" [DESI " ; : FORI-1 T03 :rem 156 
2310 I FWZ< 3THENPR I NT" [<l>l"W$;U$; t * { BLU } " fa' 
$;U$; ; rem 45 

2 320 I FWZ >- 3THENPRI NT" { BLU } "WS "[<!>]" 



W$;U$; 

: rem 

109 

2330 

NEXT:WZ=WZ+1 : RETURN 

; rem 

86 

2340 

REM 

; rem 

173 

2350 

PRINT" {CLR}GRAZIE PER 

LA PARTITA ! 


{GIÙ 1 ) 

: rem 

137 

2360 

PRINT"SEI UN BUON AVVERSARIO ! " 




: rem 

119 

2370 

PRINT"GIOCHI ANCORA? (S O N) 




: r em 

98 

2380 

A$ = : GET A$ : I FA$ = " " THEN 2 3 8 0 : rem 

221 

2390 

IFAS- ,f S N THENRUN 

: rem 

186 

2400 

END 

;rem 

157 

2410 

REM 

: rem 

171 

2420 

PRINT" [CLR } ACCIDENTI ! 

HO VINTO! ! 



{GIU 1 }" 

i rem 

75 

2430 

PRINT"MI SONO PROPRIO 

DIVERTITO! 

i* 



: rem 

117 

2440 

GOTO2370 

: rem 

207 

2450 

REM 

: rem 

175 

2460 

PRINT" {CLR}" ;TAB( 13) ; 

: rem 

50 

2470 

PR I NT " { RVS } { RED } B AC KG AMMON { WHT } 



(GIU* }" 

; rem 

178 

2480 

PRINT" IO GIOCO CON LE 

REGOLE STANDAR 


D CHE DEVI" 

: rem 

32 

2490 

PRINT” CONOSCERE PRIMA 

DI INIZIARE A 


GIOCARE. {GIU ' }" 

: rem 

28 

2500 

PRINT"! TASTI CHE DEVI 

PREMERE SONO 


QUESTI: {GIU' ]" 

: r em 

21 1 

2510 

PRINT" A-X PER MUOVERE 

: LE PEDINE 



(GIU* }■ 

: rem 

192 

2520 

PRINT" 5f{ 3 SPAZI }PER 

RIENTRARE 

DAL 


BAR (GIU ' } " 

: rem 

S 1 

2530 

PRINT" Z{ 3 SPAZI) PER 

MUOVERE IN 

ORD 


INE INVERSO (GIU 1 } “ 

: rem 

142 

2540 

PRINT" SPAZIO QUANDO RIGHI ESTO {G I U 1 } 


PI 

: rem 

245 

2550 

PRINT" SE PREMI DUE VOLTE Z SALTI 

LA 


MOSSA. [GIU 1 }" 

: r em 

64 

2560 

PRINT"C IO 1 E* CONCESSO 

SOLO SE SEI B 


LOCCATO. {GIU 1 }" 

: r em 

1 65 

2570 

PRINT 

; rem 

91 

2580 

GOTO240 

: rem 

1 58 
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di A. Motta 



Non potava certamente mancare 
fra la biblioteca software del 
C16 un gioco famoso come la da- 
ma. Amebe se sicuramente la 
quasi totalità del lettori cono* 
scerà questo stupendo gioco, è 
doveroso fare comunque un bre- 
ve cenno delle regole per quel 
pochi che non l'hanno mal prati- 
cato. 

Le origini del gioco vengono fat* 
te risalire all'epoca del Rinasci* 
mento. Si pratica su una scac- 
chiera di 64 caselle alternate, 
una bianca ed una nera, ove si 
dispongono 24 pedine: 12 nere 
per un giocatore e 12 bianche 
per rsvversario. 

C iascun giocatore depone le proprie 
pedine sulle prime tre file del pro- 
prio lato della scacchiera. 1 movimenti 
delle pedine debbono avvenire esclusi- 
vamente in direzione dello schieramen- 
to avversario, spostandosi una alla vol- 
ta lungo le diagonali delle caselle nere. 
La pedina che, lasciandosi una casella 
vuota dietro di sè. viene a trovarsi in 
una casella attigua a quella di una pedi- 
na avversaria, è scavalcata e “mangia- 
ta* o “presa* da quest'altra. Le regole 
prevedono che. obbligatoriamente, le 
prese devono essere effettuate. Quan- 
do una pedina raggiunge una casella 
vuota delia prima fila avversaria, viene 
sovrapposta ad un’altra e viene chiama 
ta “dama". Questa ha i! vantaggio dì 
poter essere mossa sia in avanti sia in- 
dietro. di poter “mangiare" pedine e da- 
me avversarie, ma di poter essere 
“mangiata" solo da un'altra dama. 
Vince chi riesce a “mangiare" tutte le 
pedine de II 1 avversa rio o a bloccarle in 
modo che non sia più possibile muover- 
le. 

Il programma qui presentato implemen- 
ta fedelmente il gioco della Dama con 
le regole sopra riportate e vi consente 
dì sfidare il vostro €16. 

Il computer non è comunque un eccel- 
lente giocatore; il livello di gioco è abba- 
stanza semplice: viene esaminata una 
determinata situazione della scacchiera 
ed in base alla stessa viene scelta la 


mossa senza vagliare i possibili effetti 
su mosse successive. Questo in quanto 
una mutine che consentisse di migliora- 
re notevolmente il livello di gioco com- 
porterebbe. oltre ad un notevole allun- 
gamento del programma con problemi 
di spazio in memoria (il programma da 
solo occupa ben 9K a fronte di una gra- 
fica che - perdonate la poca modestia 
- si può definire veramente ben fatta), 
anche un notevole allungamento del 
tempi di risposta essendo il programma 
fatto totalmente in BASIC. 

Comunque il CI6 si difende bene e do- 
vranno stare attenti anche i più esperti 
in quanto basterà una banale svista per 
perdere partite che si credevano già 
concluse a proprio favore. 


Strategia dal CI 6 

Prima di illustrare la strategia che il 
C16 segue per effettuare una mossa, 
vorrei consigliare a quei lettori che in- 
tendessero utilizzare il programma al 
solo scopo dì gioco, dì non proseguire 
nella lettura dell’articolo in quanto la 
conoscenza della strategia del compu- 
ter comporterebbe già in anticipo la de- 
terminazione delle mosse in risposta 
con conseguente facilità nell' impostare 
il gioco, vìncita sicura ed in ultima anali- 
si, mancato divertimento, 

N CI 6 vede la scacchiera come una ma- 
trice dì 100 elementi dei quali 64 sono 
le caselle della stessa ed altre 36 varia- 
bili sono 11 bordo della scacchiera, indi- 
spensabile per il corretto funzionamen- 
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to del gioco in fase di controllo e scelta 
delle mosse. 

Delle 64 caselle della scacchiera, quelle 
relative allo svolgimento della gara so- 
no unicamente quelle nere che il com- 
puter identifica con le variabili della ma- 
trice, 

Airinizio della gara tutta la matrice vie- 
ne posta a “9". Quindi le prime tre file 
nere della scacchiera sono riempite con 
il valore M (T corrispondente alla pedina 
bianca, le due file nere centrali hanno 
il valore “255* — casella vuota, e le 
restanti tre file nere superiori sono valo- 
rizzate con il numero “120* corrispon- 
dente alla pedina nera. 

Gli altri valori che la matrice può conte- 
nere sono “1* per la dama bianca e 
“129* per la dama nera. 

La scelta della mossa da parte del €16 
avviene nel seguente modo ed è relativa 
alle linee del programma da 5000 a 
5390. 

La routine si compone di due parti. Nel- 
la prima (da 5030 a 5180} il C16 pren- 
de in rassegna tutta la matrice e control- 
la se può effettuare una o più prese; 
nel qual caso, considerato che è obbli- 
gatorio mangiare, muove la pedina o la 
dama in grado di prendere uno o più 
pezzi avversari. Se quanto sopra non è 
possibile, passa allora alla seconda par- 
te della routine (dalla riga 5190 alla riga 
5390 del programma), nella quale de- 
terminerà quale pezzo muovere. Come 
già esposto in precedenza, il C16 non 
è in grado dì sviluppare una determina- 
ta situazione di gioco che consenta di 
analizzare le conseguenze di una mossa 
rispetto alle possibili successive, ma si 
limita a prendere in esame la situazione 
del momento e valutare, seguendo i cri- 
teri più avanti esposti, quale sia la possa 
migliore da effettuare. 

Prima di passare ad analizzare queste 
linee, occorre fare un cenno sulle dire- 
zioni relative alle mosse. Notiamo che 
la differenza fra due caselle adiacenti 
diagonalmente ha il valore di 6 o 7 (-6 
o -7 se la differenza è eseguita fra ca- 
selle basse meno quelle più alte) ed è 
stata intenzionalmente scelta per facili 
tare ì controlli senza creare confusioni 
fra caselle di file alterne al bordi della 
scacchiera, I suddetti valori sono conte- 
nuti nella matrice X(3) e sono stati du- 
plicati per meglio facilitare 1 controlli 
della mossa. 

Ritornando al discorso Iniziale, quando 
Il Ciò trova una casella occupata da 
una pedina propria, controlla che nelle 
uniche due direzioni possibili dì mossa 
(in basso a sinistra ed In basso a destra), 
la casella è occupata prosegue con la 
direzione destra, altrimenti assegna alla 
casella indicata dalla direzione, un valo- 
re strategico iniziale di 12. 

A questo punto comincia a controllare 
tutte le caselle adiacenti a quella occu- 
pata dalla pedina in esame ed effettua 
le seguenti considerazioni. 

— se la casella, successiva a quella libe- 
ra indicata dalla direzione, è occupata 
da una pedina o da una dama avversa- 


ria, il valore stiate tigico viene diminuito 
di 2 (due); 

- se la casella adiacente orizzontalmen- 
te è occupata da una dama avversaria 
a quella sottostante pe rp end Scola mi en 
te è libera, il valore strategico viene di- 
minuito di due; 

- se la casella in esame è una dell ulti- 
ma fila del lato nero, il valore strategico 
viene diminuito di uno; 

- se la casella sottostante è occupata 
o da una pedina bianca o da una dama 
bianca e la casella adiacente orizzontal- 
mente è libera, il valore strategico viene 
diminuito di due; 

- se la casella sottostante e occupata 
da una pedina bianca e la casella adia- 
cente orizzontalmente è invece occupa- 
ta, il valore strategico viene aumentato 
di 0,5; 

- se la casella adiacente nella direzione 
opposta alla direzione che si sta esami- 
nando è occupata da una pedina o da- 
ma avversaria e la casella opposta a 
tale direzione è libera, il valore strategi- 
co viene aumentato di uno; 

- se la casella indicata dalla direzione 
è una della prima fila avversaria, in mo- 
do che la pedina diventi dama, viene 
interrotto il ciclo e viene scelta tale dire- 
zione come mossa da effettuarsi; 

- se la casella adiacente nella direzione 
opposta alla direzione in esame è occu- 
pata da una pedina propria e la succes- 
siva in tale direzione è occupata da una 
pedina o dama avversaria, il valore 
strategico viene diminuito di tre. 

Dopo aver eseguito tutti 1 controlli so- 
prariportati, il C16 confronta il valore 
strategico risultante, contenuto nella 
variabile LS, con il valore dela variabile 
MS (che airinizio della routine di scelta 
mossa viene portato a 2 ero). Se il valore 
della variabile LS è inferiore a quello 
della variabile MS, la direzione viene 
scartata; se è superiore il CÌ6 conside- 
ra tale direzione come possibile mossa, 
ed inserisce nella variabile PM il valore 
delia casella contenente la propria pedi- 
na presa in esame, nella variabile PI il 
valore della casella indicata dalla dire- 
zione che si è appena esaminata e nella 
variabile MS il valore della LS. Se inve- 
ce il valore di tali variabili è identico, il 
computer determinerà casualmente 
quale delle due considerare come possi- 
bile mossa. 

Nel caso in cui la casella in esame con- 
tenga una dama, il CI 6 effettua una 
serie di controlli leggermente diversi da 
quelli sopra esposti. 

Questo a seguito di una diversa impo- 
stazione nella strategia di gioco: la pedi- 
na deve avere a disposizione una mag- 
gior difesa rispetto alla dama in quanto 
pud essere mangiata da qualsiasi pezzo 
avversario a differenza della dama che 
può essere mangiata solamente da 
un’altra dama; inoltre deve essere in 
grado di sviluppare situazioni d'attacco 
in modo da raggiungere il lato opposto 
avversario e diventare dama. Quando 
ciò è avvenuto, subentra un certo tipo 
di rilassamento e la dama del 06 pen- 


sa più a difendersi che ad attaccare. 
Ritornando alla routine di scelta mossa, 
quando la casella in esame è occupata 
da una dama nera, il 06 effettua i con- 
trolli sottoelencati che, in questo caso, 
sono in quattro direzioni possibili. 

In analogia a quanto già evidenziato per 
la pedina, se la casella adiacente a quel- 
la in esame, è libera, viene assegnato 
un valore strategico di undici. Come 
avrete potuto notare, tale valore è infe- 
riore di uno rispetto a quello assegnato 
nel caso in cui la casella in esame con- 
tenga una pedina, ed è stato intenzio- 
nalmente scelto per poter sviluppare la 
strategìa di gioco illustrata precedente- 
mente. 

Dopo aver assegnato il valore strategi- 
co, vengono effettuati i seguenti con- 
trolli: 

- se la casella, successiva a quella libe- 
ra indicata dalla direzione in esame, e 
occupata da una dama avversaria, ìl va- 
lore strategico viene diminuito di due; 

- se la casella nella direzione opposta 
a quella indicata dalla direzione in esa- 
me, è occupata da una dama avversaria 
e la dama del C 1 6 ha dietro di se una 
casella libera, il valore strategico viene 
aumentato di uno; 

- se la casella sottostante o sovrastante 
perpendicolarmente è occupata da una 
dama avversaria e quella adiacente 
orizzontalmente dal iato della direzione 
in esame è libera, il valore strategico 
viene diminuito di due; 

- se la casella successiva a quella libera 
indicata dalla direzione è occupata da 
una pedina avversaria, il valore strate- 
gico viene aumentato di uno; 

- se la casella sottostante o sovrastante 
perpendicolarmente è libera a quella 
adiacente orizzontalmente dalla parte 
della direzione in esame è occupata da 
una dama avversaria, il valore strategi- 
co viene diminuito di due; 

- se c'è la possibilità di inserirsi fra due 
dame avversarie (i cosiddetti “occhia- 
li*}, il valore strategico viene aumentato 
di tre. 

Eseguiti i suddetti controlli, viene chia- 
mata la subroutine alle linee 5900-5920 
per il controllo del valore strategico e 
scelta della possibile mossa (vedasi 
quando indicato in precedenza in meri- 
to alle variabili LS, MS, PM e PI), 
Dopo aver passato in rassegna tutte le 
caselle della scacchiera, ìl Ciò controlla 
il valore della variabile MS. Se è zero 
vuol dire che non è in grado di eseguire 
alcuna mossa in quanto i pezzi rimasti 
sono stati bloccati da quelli avversari e, 
pertanto, decreterà la vostra vittoria. 
Se invece tale variabile è diversa da 
zero, il computer leggerà nella variabile 
PM il numero della casella contenente 
il pezzo da muovere e, nella variabile 
FI, il numero della casella di destinazio- 
ne. 

Utilizzo del progni atout 

Anche se a il’ interno del programma so- 
no contenute brevi istruzioni sul gioco, 
è bene dare qualche ulteriore spiegazio- 
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ne sull 'utilizo del programma stesso , 
Airìnizio, dopo la presentazione con le 
relative istruzioni, vi verrà richiesto se 
volete iniziare per primi la gara, per cui, 
se preferite che parta il C16, basterà 
rispondere “N" (NO) alla domanda. 

La mossa sì effettua inserendo prima le 
coordinate della casella contenente il 
pezzo da muovere e quindi le coordina- 
te della casella di arrivo* 

La forma di tal* coordinate dovrà essere 
* Lette ra / Numer o “ . 

Per non appesantire il programma, non 
sono stati predisposti i controlli nel caso 
in cui dobbiate effettuare piu prese con 
un'unica mossa. 

Pertanto, se vi capiterà di dover man- 
giare piu dì un pezzo del C16 con una 
sola mossa* dovrete effettuare tante 
mosse quanti sono ì pezzi da prendere. 
Ad ogni presa che effettuate il CI 6 vi 
chiederà se ne avete un'altra in succes- 
sione e, nel caso sopra riportato, baste- 
rà rispondere “S” (SI} alla domanda per 
Inserire le coordinate per effettuare l'al- 
tra presa. Idem per prese successive. 
State ben attenti a non barare: il com- 
puter controlla che, nel caso comuni- 
chiate una successiva presa, la casella 
dì partenza che dovrete inserire dovrà 
essere tassativamente uguale a quella 


di arrivo della presa che avete appena 
eseguito, e che la differenza fra la casel- 
ladi partenza e quella dì arrivo sia supe- 
riore a sette (cioè vi sìa effettivamente 
una presa}. In caso contrario segnalerà 
il vostro errore. A questo punto basterà 
premere il tasto “P” (PASSO) al posto 
delle coordinate in modo che la mossa 
passi al CI 6. 

Se vi siete stancati di giocare o volete 
interrompere la partita per iniziarne 
una nuova, basterà inserire una “X” 
(EXIT) al posto delle coordinate ed il 
computer vi chiederà se volete effettua- 
re una nuova gara. 

Nel programma sono state inserite di- 
verse linee REM che ne rendono chiara 
la lettura. Merita comunque un cenno 
la piccola routine contenuta nelle linee 
da 4030 a 4150 che simula una istruzio- 
ne INPUT utilizzando la funzione GET 
e permette rinserìmento delle coordina- 
te da parte del giocatore. 

Come molti avranno già intuito, l'utiliz- 
zo della istruzione INPUT avrebbe com- 
portato i seguenti problemi: 

1} la presenza dell'antiestetico punto di 
domanda: 

2) la possibilità di immettere errori con 
conseguente visualizzazione di messag- 
gi del tipo “EXTRA IGNORED" o “RE- 


DO FRGM START", che si posizione- 
rebbero sopra la scacchiera rovinando 
la irrimediabilmente, in considerazione 
della posizione in cui è stata ubicata la 
visualizzazione delle coordinate inseri- 
te; 

3) la possibilità di inserire più dei 4 ca- 
ratteri relativi alle coordinate e, quindi, 
effettuare delle scritte sopra la scac- 
chiera. 

Il primo punto è senz’altro un problema 
marginale e facilmente risolvìbile apren- 
do un file verso il video e poi, magari 
non a tutti dava fastidio il punto interro- 
gativo lampeggiante sullo schermo. 
Questa soluzione lascia pero immutati 
gli altri problemi, ben più importanti in 
quanto potrebbero compromettere il 
gioco stesso, 

A fronte dì ciò ho creato quella piccola 
routine che consente di inserire ì quat- 
tro caratteri richiesti dall'imput delie 
coordinate algebriche, e permette an- 
che la cancellazione di quelli immessi 
erroneamente, utilizzando il tasto (HQ- 
ME/CLEAR). Inoltre, i controlli inseriti 
consentono Tìnse ri mento per il 1 * ed il 
3* carattere delle sole lettere dalla A 
alTH; mentre per il 2" ed il 4* carattere 
il sistema accetta solamente numeri d ai- 
ri all'8. 


Dama per C16 - Plus/4 

1000 : ;rem 251 

1010 REM TRASFERIMENTO SET CARATTERI 

: r em 2 0 

1020 : ; rem 253 

1 030 POKE56 , 60 ; PQKE52 , 6Q : POKE55 , 0 * POKE51 , 
0 :rem 172 

104 0 0 : FORI - 1 0 GOTO 1 0 30 : RE AD A :rem 236 

1050 POKEI,A:T=T+A:NEXT zzem 175 

1060 I FT< >3288 THEN PRI NT" {CLR } ERRORE NEI D 
ATA! " ; END : rem 131 

1 070 SYS1000: POKE65 298 , 0 : POKE65 2 99 , 60 

;rem 101 

1 0 9 0 : ; t em 4 

1100 REM DATA L/M srem 136 

1110 : : rem 253 

t 120 DATAI 60,0, 185,0,208,153,0,60 

: rem 1 1 2 

1130 DATAI 85, 0,209 ,1 53, 0,61 ,1 85,0 

:rem 122 

1 ì 40 DATA21 0, 1 53,0,62,1 85,0, 21 1 ,1 53 


1310 DATAI 28 , 240,2 52 , 254 , 250 , 230 , 30, 254 




: rem 

162 

1 320 

DATAI 27, 1 27, 1 27, 31 , 7,1 , 0,0 

: rem 

14 

1330 

DATA 255 , 255 , 255 , 255 , 255,255 

, 0/0 




: rem 

29 

ì 340 

DATA 254 , 254 , 254 , 248 , 224,128 

, 0,0 




: rem 

24 

7 350 

DATA 0 , 0 , 1 , 14 , 48 , 64 , 96,88 

:rem 

194 

7 360 

DATAO, 0 , 255 , 0 , 24 , 36 , 24,0 

trem 

169 

1 370 

DATAO, 0 , 128 , 1 12 , 12 , 2 , 6,26 

freni 

219 

138 0 

DATA 71 , 64 , 64 , 64 , 32,8 8,71 ,64 

: rem 

103 

1390 

DATAO, 255 , 0 , 0 , 0 , 0 , 0,255 

: rem 

115 

1 400 

DATA 226 , 2 , 2 , 2 , 4 , 26 , 226,2 

: rem 

171 

1410 

DATAO, 0 , 1 , 1 5 , 63 , 127 , 95,103 

;rem 

16 

1420 

DATAO, 0 , 255 , 255 , 231 , 219,231 

,255 




: rem 

17 

1430 

DATAO, 0 , 1 28 , 240, 2 52, 2 54, 2 50 

,230 




: rem 

7 


1 440 DATAI 20 , 127, 1 27 , 127 , 63 , 103, 1 20, 1 27 

;rem 162 

1450 DATA 2 55 , 0 , 2 5 5 , 2 55 , 2 55 , 2 55 , 2 55,0 

: r em 3 2 


:rem 211 

1150 DATA0, 63, 24, 1 36,208 ,228,96 :rem 39 
1190: ì r em 5 

1200 REM DATA NUOVI CARATTERI ìtem 241 
1210: : rem 254 

1220 OATA25 5, 2 55, 2 55, 2 55, 2 55, 2 55, 2 55, 2 55 

;cem 243 

1230 DATAI ,14,48,64,96,88,71 ,64 :rem 49 
1240 DATA255,0, 24, 36,24,0, 0,255 :rem 18 
1 250 DATAI 2 8, 1 12,1 2 , 2 , 6 , 26 , 2 2 6 , 2 : rem 6 8 
1260 DATA64 ,64,96,24,6,1,0,0 : rem 13 5 

1 270 DATA0, 0,0 ,0,0,255,0,0 :rem 4 

1280 DATA2,2,6 , 24, 96,1 28,0, 0 :rem 131 
1290 DATAI ,15,63,1 27,95,103,120,127 

; rem 227 

1300 DATA255,255,23S,21 9,231 ,255,255,0 

: rem 1 26 


1 4 60 DATA 30, 2 5 4, 2 54,2 54, 2 52,2 30 , 30 ,2 54 

: r em 121 


1 4 70 FORICI 61 36TOl6335:READA: POKEI , A : NEXT 



; rem 

14 

1 500 i 

; rem 

0 

1510 REM VARIABILI INIZIALI 

: rem 

151 

1520 : 

:rem 

2 


1 530 Z 1 $ = * { WHT } E < 3 K>J{GIU*lt 3 SIN} 

(< 3 K>]{GIU'}( 3 SIN } [ < 3 K>]":Z2£ = 
M { WHT } { 3 SPASI } [GIÙ 1 } { 3 SIN)KI>] 

[ <T> ) [ <@> 1 {GIU ' } ( 3 SIN} [<G>] [< + >) 
ì <M> 1 " :rem 1 46 

1 540 Z3S-'MWRT}£ 3 SPAZiHGIU’H 3 SIN} 
[<£>] £f<N>] {GIO ' H 3 SIN} [<Q>| [<D>3 
f<2>|" :Z45 = , M 3 SPAZI HGIU 1 } 

{ 3 S IN } { 3 SPAZI } (GIU T }{ 3 SIN} 

{ 3 SPAZI}" :rem 13 
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1 SSO Z5S-" {WHT } [<s>] [<P>] [4A>J (GIU' } 

( 3 SIN) t<E> J I<R>] [<W> J {GIU ’ } 
t 3 SIN} [<G>] [< + >] [<M>] E6S=" {WHT} 
1<H>) [<J>] [<L>! {GIU ' } ( 3 SIN } [ < Y> ] 

£ <U > ) [<0>] {GIU' } { 3 SIN} [<Q>] [<D>] 
[<Z>]" : rem 120 

1560 PB=0:PN=128:DB=1:DN=129:B*255 

: rem 

DIMA ( 1 0 0 J ,X[8) ,B(2) ,Z (2) 
DATA-6,-7,6,7 ,-7,-6, 7 ,6 
RESTOREI 580 

FORI = 1 TO 8 : READX [ I ) sNEXT 


1 570 
1580 
1 585 

1 590 
2000 
2010 
2020 
2030 
2040 

20 50 
2060 

2070 

2080 

2090 

2100 

2105 

2110 

2120 

2130 

2140 

2150 

2)60 

2170 

2180 

2500 

2510 

2520 

2 530 
2540 

2550 

2560 

2570 
2580 
3000 
3010 
3020 
30 30 

3040 

3050 

3060 

3070 


REM PRESENTAZIONE 


163 
rem 209 
rem 132 
rem 197 
rem 9 
rem 252 
rem 142 

; : r em 2 5 4 

COLOR4 , 7, 2: COLORO ,7 , 2: VOLB ;rem 70 
PRI NT” {CLR } ” s CHAR ,17,3#“ {WHT } D AMA 
H : r em 2 5 3 

CHARMI 7,4, »{ 1 M" SPRINT srem 80 
PRINT" £ YEL} { 3 GIU 1 }TU GIOCHI CON LE 
PEDINE BIANCHE E IL C16"? srem 149 
PRI NT !, CON QUELLE NERE . " irem 154 
PRINT" PER EFFETTUARE LA MOSSA 
t 2 SPAZI }PRIMA INSERISCI”; i rem 218 
PRI NT" LE COORDINATE DELLA CASELLA 
t 2 SPAZI }DI PARTENZA”; \ rem 153 
PRINT" E POI QUELLE DELLA CASELLA DI 
ARRIVO - " s rem 110 

PRINT" PER CANCELLARE USA IL TASTO <C 
LEAR/HOME>"; srem 199 

PRI NT" EFFETTUARE UNA PRESA PER VOLTA 
i{ 2 SPAZI }IL{ 2 SPAZI }C16"; 

: rem 0 

PRINT" VI CHIEDERÀ’ SE NE AVETE UNA 
{ 2 SPAZI } SUCCESSI VA" ; srem 73 

FR1NT"DA EFFETTUARE." srem 53 

PRINT" LE PRESE DEVONO ESSERE ESEGUIT 
E OBBLIGA-" ? t rem 237 

PRI NT" TORI AMENTE , " srem 191 

PRINT" { 3 GIU 1 } {CYN}PREMI < RETURN > P 
ER INIZIARE" srem 133 

GETZ$ : IFZSOCHRS (1 3)THEN2l 7 0 

: rem 1 52 

PRINT" {CLR]" : CHARMI 4, 10," [FLASH ON] 
[YEL] A T T E N D I " ; rem 194 

: : r em 1 

REM VARIABILI GIOCO irem 176 

s : r em 3 

FORI *1TQ100:A(I)=9 srem 39 

IFI< 73ANDI>55ANDI068ANDI< >67 ANDI < >6 
2ANDI < >61 ANDI < >60THENA { I ) = PN : GOTO 2 57 
0 ;rem 49 

IFK 54 ANDI >42 AND I < >49 AND 10 4 @AND1< >4 
7THENA ( I ) =B : GOTO 25 70 srem 217^ 

IF I< 4 1 ANDI >23 ANDK > 36 ANDI < > 3 BANDI < > 3 
4 AND 10 2 9AND I < >28THENA ( I ) *PB 

srem 217 

NEXT srem 13 

HS=0;CS=0 srem 20 

: srem 253 

REM STAMPA SCACCHIERA : rem 52 

: srem 255 

COLORO, ? :COLOR4 ,4,6: PRINT" {CLR}" 

: rem 31 

FORI » OTO 2 3 : CHAR ,0,1," (CYN) [<K>] " :CHA 
R , 2 5 f I , " [< 15 K>3 M ì NEXT srem 253 

FOR I = OTO 1 8S TE P6 : FOR J s 1 TO 2 0 STE P 6 

srem 51 

CHAR * J , 1 , Z 1 $ s NEXTJ , I s rem 22 9 

FORI = 3T0 2 2STEP6 ; FORJ = 4T023STEP6 

srem 57 


3080 CHAR,J,I , ZI $:NEXTJ,I ;rem 231 

3090 CHAR, 0,24, " {RVS} {CYN} { 2 SPAZI }A 
{ 2 SPAZI }B( 2 SPAZI }C{ 2 SPAZI }D 
{ 2 SPAZI }E[ 2 SPAZI }F{ 2 SPAZI }Q 
{ 2 SPAZI }H{ 15 SPAZI } {OFF}" 

srem 175 

31 00 POKE3047,99sPOKE4071 ,97 srem 48 

3110 PRINT" { R VS } [HOME } {GIU 1 } 8 { 3 GIU') 

f S I N } 7 ( 3 GIU’ }{SIN}6{ 3 GIU’]{SIN}5 
[ 3 GIU* }{SIN]4{ 3 GIU 1 } {SIN} 3 
{ 3 GIU" }{SIN]2{ 3 GIU’ } { S I N } 1 {OFF}" 

srem 178 

3120 CHAR ,29,1 , " { RVS }D A M A" : CHAR , 2 9 , 2 , " 
{ 7 E] {OFF]" srem 3) 

3130 CHART31 , 5," {RVS}C1 6" :CHAR,31 , 1 2,"T U 
{OFF}" : rem 36 

3140 GOSUB8100 ;tem 17 

3150 CHAR, 2 8, 19, "{RVS} {CYN} PARTI PER":CHA 
R , 2 6 , 2 0 , " PRIMO? { 2 SPAZI } (S/N ){ OFF } " 

rrem 254 

3160 SOUNDl ,810,1 5; SOUNDl ,770,1 5:rem 43 
3170 GETZS; IFZ$< >"S" ANDZ$< >"N"THEN31 70 

srem 216 

3180 CHAR, 28,19, " [< 9 K>] " sCHAR , 26 , 20, " 

[< 1 3 K > J " : rem 70 

3190 IFZ$3 " S" THEN40 00 : rem 161 

3200 I *56 : GOTO 5 1 95 :rem 2 53 

3990 : srem 15 

4000 REM MOSSA GIOCATORE srem 200 

: srem 255 

4020 MO = 0 ; CHAR , 30 , 1 4 , " (CYN } [< 5 K>){SIN) 
(FLASH ONH 4 SIN }{RVS}< {RVS]" ; SOUND 
1,800,25 : rem 43 

4030 GETZSs IFZ$="X" THEN7560 srem 70 

4035 IFZS-"P'’ANDR-2THENCHAR,30, 14," 

{ 2 SPAZI J " ; GOTO 5000 ;rem 83 

4050 I FZS< " A" ORZ$ >“ H "THEN40 30 irem 118 
4060 M5=Z$+" {FLASH ON}< (FLASH ON}" sCHAR, 3 

s rem 188 

4070 GETZ$ t IFZ$i." { HOME ]" THENZ$ = CHAR , 30 

,14," (FLASH ON}< {FLASH ON } " SGOT0403 
0 ; rem 150 

4080 I FZ$< " 1 "ORZS > " 8" THEN4 0 70 :rem 93 
4090 M$ = LEFTS tM$ , 1 ) 4- Z$+" - { FLASH QN}< 

{FLASH ON ] " : CHAR ,30,14, M$ srem 133 
4100 GETZS; IFZS-" {HOME } " THENM$-LEFT$ ( M$ , 1 
)+" {FLASH ON}< {FLASH ON }[ 3 SPAZI}": 
CHAR ,30,14, M$ : GOTO 4 070 srem 77 

4110 IFZ$<"A"ORZS>"H"THEN410Q srem 11 3 
4120 M$ = LEFT$ (MS , 3 ) + 2$ + " { FLASH ON}< 

(FLASH ON}";CHAR, 30, U,M$ srem 04 
41 30 GETZ5 ; IFZ$=" [ HOME } " THENM$ =LEFT$ ( MS , 3 
)+" {FLASH ON ] < {FLASH ON } { 2 SPAZI}": 
C H A R , 3 0 , 1 4 , M$ : GOTO 410 0 :rem 76 

4140 I FZ$ < " 1 "ORZ$ > " 8 11 THEN4 1 30 ; rem 87 

41 50 M$-LEFT$ [M$ , 4 ) + Z$ : CHAR , 3 0 , 1 4 , MS 

srem 167 

4160 FS ( 1 J =LEFT$ (MS, 2) :FS [ 2 ) =RIGHTS (MS , 2 ) 

: r em 137 

4170 FORI = 1T02: RESTORE9 500 : rem 107 

4)80 READX S , Yl ; I FY ! - GTHEN7000 :rem 209 
4190 IFF$ ( I ) =XSTHENB (I }=Y1 :GOTO42l0 

srem 38 

4200 GOTO 4180 :rem 204 

4210 NEXT :rem 6 

4220 IFA ( B ( 1 ) } OPBANDA (B (1 ) ) < >DBTH EN70 00 

srem 216 

4230 IFA(B (2J ) OBTHEN7000 :rem 97 

4240 IFBfl ) >B(2)ANDA(B(1 ) ) < >DBTHEN 700 0 

srem 63 

4250 IFR = QTHEN 4 330 ; rem 18 
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4260 IFRO1THEN4290 : rem 86' 

4265 IFABS (B (1 > -B (2) ) >7THEN4330 srem 171 
4270 CHAR,3Q, 1 9 , " {RVS } {CYN} PRESA" :CHAR , 28 
,20, "OBBLIGATA" : rem 29 

4280 FORI “600T070QSTEP4: SOUND 1 ,1 ,1 i NEXT 

srem 186 

4285 FORI =1 TO50Q i NEXT 8 CHAR, 30,19," 

{ 5 SPAZI }" iCHAR,28, 20, " { 9 SPAZI} 
{OFF}” :GOTO4020 srem 198 

4290 IFB (1 ) “XRANDABS (B (1 ) -B (2) ) >7THEN4330 

srem 39 

4300 CHAR, 29,1 9," {RVS} {CYNjO PRENDI " S CHAR 
,29,20, "O PASSI {OFF}’ 1 : rem 146 

4310 SOUND 1 , 300 , 30: FORI = 1 T0900: NEXT 

s rem 93 

4320 CHAR, 29,19," [< 9 K> ] " s CHAR, 29 , 20, " 

K 8 K>] " :GOTO4020 srem 91 

4330 IFABS (B ( 1 ) -B { 2 ) ) < = 7THEN4 370 s rem 227 
434 0 IFA ( (B (1 ) +B (2) ) /2) OPNANDA ( (B (1 > +B (2 
) )/2) ODNTHEN7000 srem 55 

4350 IFA( (B (1 ) +B (2) ) /2) =DNANDA(B (1 ) ) OD BT 
HEN7000 srem 65 

4360 A{ (B (1 ) +B (2) ) /2) =BsMO=l :HS=HS+1 

srem 145 

4370 A(B (2} }>A(B(1 ) ) iA(B(l ) )»B srem 199 
4380 PRINT" {OFF}’ 1 SGOSUB81 00i IFHS = 1 2THEN75 
00 srem 180 

4390 lFMO=0THEN5000 srem 92 

4400 CHAR, 2 7 ,19," {CYN } (RVS } ALTRA PRESA?” s 
CHAR ,30, 20, " (S/N) {OFF}" i SOUND 1 ,70 0,3 


IFA (I+X (D) ) = BTHENLS = 12: ELSEGOTO 5270 

srem 162 

IFI+X (D) < 2 8THENPM = I 5 PI = I +X ( D) S MS = 8 3 E 
XIT srem 230 

IFA ( I+X (D+4 ) ) “PBANDA ( I-X (D+4 ) ) =BTHEN 
LS=LS+1 srem 43 

IFA (I+2*X (D) ) =PBORA(I+2*X (D) ) “DBTHEN 
LS=LS-2 srem 52 

IFI >6BTHENLS=LS- 1 srem 92 

IFA (I+X (D + 4) ) “PNAND (A (1+2* (D + 4) ) =PBO 
RA(I+2*X (D+4) ) “DB ) THENLS =LS- 3 

srem 243 

IF (A (1-1 3) “PBORA ( I~ 1 3) =DB) AND A ( I + 2*X 
(D) +1 3) = BTHENLS “LS- 2 srem 240 

I F I< 4 OANDA ( I + 1 ) “PNANDA (I- 1 ) “PNTHENLS 
=LS+3 srem 27 

IFA (1-1 3) = PBANDA (I + 2*X (D) +1 3) OBANDA 
( I + 2*X (D) ) < >PBTHENLS=LS+. 5 srem 110 
IFA (I-X (D) ) =DBTHENLS“LS+1 . 5srem 132 
IFK68ANDA (I-X (D) ) = PNANDA (I- 2*X (D) } = 
DBTHENLS=LS- 3 srem 235 

IFA ( 1-1 3 ) “BANDA (I+2*X(D)+13) =DBTHENL 



S=LS-2 

: rem 

196 

5265 

GOSUB5900 

: rem 

32 

5270 

NEXT: GOTO 53 50 

; rem 

77 

5280 

IFA (I ) ODNTHEN5350 

: rem 

65 

5290 

FORD = l T04 : LS = 0: IFD< 3THENK = 

1 3 ; ELSEK = - 



0 

: r em 

62 

4410 

GETZ$ : IFZ$< > n N' É ANDZ$< >”S M THEN441 0 



; rem 

21 2 

4420 

CHAR, 27, 1 9, " {< 12 K>ì"iCHAR 

,30,20 



(< 6 K>]" 

; rem 

186 

4430 

IFZ$ = " S 1 * THENR™ 2 ; XR=B ( 2 ) :GQTQ4Q20 




; rem 

1 87 

5000 

; 

: rem 

255 

5010 

REM MOSSA Gl 6 

: rem 

215 

5020 

; 

: rem 

1 

5030 

CHAR ,30,7," {OFF } {CYN } E < 5 K>]": SOUND 


1,800,15:1=24 

: rem 

14 

5040 

FORF = ITO?2: IFA{F) OPNANDA(F) ODNTHEN 


5090 

: rem 

245 

5050 

FORD “ 1 TO 4 

: rem 

58 

5060 

IFA (F ) < >DN ANDO > 2THEN5G 80 

: rem 

193 

5070 

IFA ( F+2*X { D) ) = BAND (A (F+X (D) ) =PBOR(A ( 


F+X (D) ) =D BANDA {F) = DN} ) THENQ 

=X { D ) : 

GOT 


05100 

: rem 

1 1 

5080 

NEXTD: I^F+1 : GOTO 50 40 

; rem 

238 

5090 

NBXTF : GOTO 51 9 0 

: rem 

149 

5100 

A (F + 2*Q) “A ( F ) : CS=CS+ 1 :GOSUB55QO 




: rem 

1 4 

51 1 0 

A (F+Q) =B : A (F ) =B : P=F+2*Q 

:rem 

16 

5120 

GOSUB81 00: IFCS=1 2THEN7700 

: rem 

U 

5125 

M = 0 : FORD = 1 TO 4 

: rem 

49 

5130 

IFA (P) ODNANDD>2THEN5l 60 

: rem 

200 

5140 

IFA (P+2*X (D) ) =BAND ( A (P+X (D) ) =PBOR(A ( 


P+X (DJ )=DBANDA(P}=DN) ) THENM 

=X(D> 




:rem 

244 

51 50 

I FM = GTHENNEXTD 

: rem 

198 

5160 

IFM=0THENGOSUB5600 :GOTO4000 

: rem 

198 

5170 

A (P+M) = B : A ( P + 2*M ) =A ( P ) 1 A{P) 

= B 




: rem 

80 

5180 

CS=CS+ì ; P=F+2*M : GOTO 51 20 

: rem 

185 

51 90 

MS =0;PI=G:PM =0:1=23 

: rem 

133 

5195 

DOUNTI LI =72 

: rem 

226 

5200 

1 = 1 + 1 : IFA ( I ) OPNTHEN5280 

: rem 

1 72 

5210 

FORD = 1 TO 2 ; LS = 0 

: rem 

124 


1 3 s rem 1 53 

IFA (I+X(D) ) “BTHENLS = 1 1 3 ELSEGOTO5340 

srem 158 

IFA (I + 2*X(D) } =PBTHENLS=LS + Ì srem 128 
IFA (I + 2*X(D) ) =D BTHENLS “LS- 2 s rem 1 1 5 
IFA (I+X (D+4) ) “DNANDA ( I -X ( D+4 ) ) =BTHEN 
LS=LS+1 s rem 4 2 

IFA (I-K) =D BANDA ( I +2*X (D) +K) “BTHENLS® 
LS- 2 srem 1 43 

IFA (I-K) “BANDA ( I + 2 *X (D) +K) =DBTHENL*S = 
LS- 2 srem 1 4 8 

IFA (I-K) =DBANDA(I+2*X (D) +K) “DBTHENLS 



=LS+3 

: rem 

211 

5335 

GQ3UB5900 

: rem 

30 

5340 

NEXTD 

: rem 

79 

5350 

LOOP 

: rem 

7 

5360 

IFMS = 0THEN7 500 

: rem 

101 

5370 

A (PI ) = A (PM) : A (PM) =B 

: rem 

78 

5380 

F-PM : GOSUB 55 00 : P=PI ; GOSUB560 0 




: rem 

89 

5390 

GOSUB 81 00 : GOTO 40 00 

: rem 

81 

5500 

RESTO RE 9 5 0 0 : M$ = " tT 

: rem 

232 

5510 

READX$ , Yl : IFYl OFTHENS51 0 

: rem 

3/ 

5520 

M$=” {RVS} {CYN } " +X$ + u - " : RETURN 




: rem 

204 

5600 

RESTORE9500 

: rem 

189 

5610 

READX$ , Y) : I FY 1 < >PTHEN5 6 1 0 

: r em 

50 

5620 

M$=M$+X$+” {OFF}" ;CHAR,30, 

7 ,M$ 




: rem 

1 23 

5630 

FORI = 70 0TO8 0 0STEP4 ; SOUND 1 

,1,1: NEXT 



: rem 

1 88 

5640 

R = G ; 1 = 23 : DOUNTI LI = 72 

: rem 

251 

5650 

1 = 1 + 1 : IFA { I ) OPBANDA ( I ) ODBTHEN56 90 



; rem 

92 

5660 

FORD = 4T0 1 STEP- 1 : IFD<3ANDA ( I ) -PBTHEN5 


680 

: rem 

214 

5670 

IFA (I+X (D) ) = PN AND A ( I + 2 * X ( D ) ) -BTHENR = 


1 :EXIT 

: rem 

51 

5675 

I FA ( I +X (D ) ) =DNAND A ( I ) =D BANDA ( I + 2*X ( D 


} ) =BTHENR-1 : EXIT 

: rem 

1 57 

5680 

NEXT 

: rem 

18 

5690 

LOOP 

; rem 

1 4 

5700 

RETURN 

: rem 

172 
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5900 

I FL$< M STH ENR ETU RN 

: rem 

231 

5910 

IFLS=MSANDRND{0) > ■ STHENRETURN 




; rem 

194 

5920 

MS=LS : PM = I : PI -I +X (D) : RETURN : rem 

52 

7000 

: 

: rem 

1 

7010 

REM MOSSA INVALIDA 

: rem 

119 

7020 

: 

;rem 

3 

7030 

CHAR ,30,19," MOSSA" : CHAR , 

28, 20, "INVAL 


IDA! " 

; r em 

85 

7040 

FOR 1 = 60 OTO 4 0 0 STE P- 4 : SOUND 1 ,1,1: NEXT 



: rem 

225 

7050 

FORI =1T01 00: NEXT 

: rem 

23 

7060 

CHAR, 30, 19," { 5 SPAZI } " ; 

CHAR, 28, 

20," 


{ 9 SPAZI } (OFF >" 

: rem 

254 

7070 

GOTO4Q20 

: rem 

205 

7500 

; 

: rem 

6 

7510 

REM FINE PARTITA 

: rem 

232 

7520 

: 

: rem 

8 

7530 

CHAR, 27,19," [RVS ){CYN)HAI[ 2 SPAZI} 


VINTO! " 

: rem 

1 83 

7540 

FORJ = 1 TO 5 : FORI = 600T080 0STEP4 




: rem 

47 

7550 

SOUND 1 ,1,1 : NEXTI , J 

: rem 

1 49 

7560 

CHAR ,26,21 , "GIOCHI ANCORA" : CHAR , 

30,2 


2," (S/N) (OFF } " 

; r em 

1 32 

7570 

GET3$ : I FZ$ S " S" THENPRINT" 

fCLR}" : GOTO 2 


1 30 

: rem 

29 

7580 

lFZ$O n N" THEN7570 

; rem 

239 

7590 

PR I NT" (C LR } " : CHAR ,16,10, 

11 [ WHT ] C 

I A 


O" 

: rem 

66 

7600 

POKE65 29 6 ,4: POKE6 5299 ,208; END 




: rem 

1 85 

7700 

CHAR ,28,19," { RVS } {CYN } HO 

VINTO 1 " 

: GOT 


07540 

: rem 

196 

8000 

; 

: rem 

2 

8010 

REM DA PEDINA A DAMA 

: rem 

55 

8020 

; 

s rem 

4 

8030 

FORI = 241072 

; rem 

1 70 

8040 

I FA ( I) =PBANDI >68THENA ( I ) 

-DB: rem 

154 

8050 

IFA ( I ) =PNANDI< 28THENA ( I ) 

*DN : rem 

173 

3060 

NEXT: RETURN 

:rem 

39 

8100 

; 

: rem 

3 


8110 REM AGGIORNAMENTO SCACCHIERA 

trem 63 

81 20 : : rem 5 

8130 GOSU B 8 0 0 0 : R ESTORB9 500 : rem 64 

8 M 0 FORI = GTQ 1 9STE P 6 : FO R J = 4 TO 2 3 STEP 6 

: X em 63 

8160 REAOXS , Y 1 ; GOSUB8200 :CHAR , J , I ,ZQ$:NEX 
T : r em 5 4 

8160 FQRJ - 1 TO 2 0 STEP 6 : READX S , Y 1 :GOSUB82QO 

; rem 241 

81 70 CHAR ,J, 1 + 3,30$: NEXT: NEXT: RETURN 

:rem 29 

8200 I F A [ Y 1 ) = PN TH EN 2 0$ *22$: GOTO 6250 

:rem 92 

8210 I FA ( Yl ) =PBTHENZ0$ * Z 3$ i GOTO 8 2 50 

:rem 82 

82 20 iFAiYl) =DNTHEN2Q$=Z5$ : GOTO 62 50 

: rem 85 

8230 I F A ( Y 1 ) =DBTHENZG$ * Z 6$ ; GOTO 8 2 50 

: rem 75 

8240 I FA ( Yl ) = BTHEN2 0$ = Z 4$ : rem 196 

8250 RETURN : rem 175 

9500 : ; rem 8 

9510 REM DATA CASELLE : rem 198 

9520 : : rem 10 

9530 DATA" B8" f 7 2 , "D 8 " , 7 1 , "F8",70, "He", 69 

:rem 202 

9540 D ATA" A7 " , 6 6 , "C 7" , 6 5 , 11 E 7 " , 6 4 , " G 7 11 ,63 

: rem 198 

9 550 D AT A " B 6 " , 59, "D 6" ,58, "F6" , 57, "H6", 56 

:rem 207 

9560 DATA "A 5" , 53 , "C5" ,52 , "E5* 1 ,51 , "G5" , 50 

: rem 176 

9 570 DATA M B4" ,46,"D4" , 4 5 , " F4 " , 4 4 , "H4%4 3 

: rem 1 85 

9580 DATA" A3" ,40, "C 3 " , 3 9 , " B 3 " , 3 8 , "G 3 " , 37 

: r em 181 

9 590 DATA*' B2" ,33, "02** , 32 , « F2" ,31, "H2" , 30 

:rem 163 

9600 DATA" Al " , 2? , "C 1 " , 2 6 , "E f " , 2 5 , "G 1" , 24 

:rem I 59 

9610 DATA" 0" , 0 : rem 186 


Per ricevere le riviste arretrate 
di SUPERCOMMODORE con cassetta 
compilate e spedite li coupon qui sotto! 


SUPERCOMMODORE 

CEDOLA DI ORDINAZIONI: RIVISTE ARRETRATE CON CASSETTA ALLEGATA 
da compilare e spedirò in busta chiusa a 
J soli - Viari) RaaisNi, S - 20124 Milano - Tel. &BM228 

Vagliata Inviarmi l ritintaci . , r 

di SUPERCGMMGDflE con castana Anno 

Al presti di L 15-000 cad. 

p Contanti allegali Q Ataagne nNegnic n* 


p Ho sparite l'importo a maico vaglia pattala 

Q ho variato C importo mi cep. n* 19445204 in tana re a J, toft - Milano 
p Pagherò in centra a legno al pollino al rtcavtmento 


BUONO D'ORDINE PER RIVISTE ARRETRATE 
Anche se l'ordine riguardasse la sola cassetta, questa 
verrà comunque inviata insieme alla rivista al prezzo in- 
dicato, 

Nomo , 

Cognome . „ 4 . 

Via 

Città CAI», ,Pmv 

Se debilita lattàia; 

Coé, F,% P. Iva 

Dati * 

Firma .... 

Per i r*ild#n|i ali estero - pagamento anticipalo (vaglia o variamento tu ni, ccp) 




J 
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di K* Winter* 

trad ed ad alt. 

di L. Prlotto 


Chi lavoT« «bltnalaiiiitc coti 11 
proprio C64 ed 11 diak drive «co- 
te «pesco le necessiti di crearsi 
alcune copie di «Icorezza dei 
propri dischip vuoi per non ri- 
schiare di perdere del file Impor- 
tanti. vuoi per poter riformatta- 
re il disco "di lavoro" ed osarlo 
quindi nuovamente* 


T URBOCOPY. un programma corri* 
pietà mente in linguaggio macchina, 
è una eccezionale utility, che permette 
dì duplicare interamente un dischetto in 
solì tre passaggi. 

Il suo utilizzo è molto semplice: dopo 
averlo caricato ed attivato vi verrà chie- 
sto di premere un tasto per iniziare. Fat- 
to questo il programma provvede a po- 
sizionare correttamente la testina del 
drive (anche se il rumore è molto slmile, 
non abbiate paura: non sta formattan- 
do!) e quindi vi chiede di inserire nel 
drive il disco sorgente (cioè il disco che 
desiderate copiare). Fatelo e premete 
un tasto qualsiasi: lo schermo scompari- 
rà e Ja spia del drive inizierà a lampeg- 
giare. Non allarmatevi, in quanto non si 
è verificata alcuna condizione di errore! 
TURBOCOPY copia traccta per traccia 
e settore per settore, con una serie di 
veloci accessi al disco, che provocano 
questo lampeggiamento. 

Dopo pochi secondi ricomparirà lo 
schermo, ed 11 programma vi chiederà 
di inserire il disco destinazione (quello 
sul quale desiderate fare la copia). 
Quest'ultimo può anche essere comple- 
tamente vergine e non formattato, In 
quanto TURBOCOPY provvede auto- 
maticamente alla formattazione mano a 
mano che scrive sul dischetto. 

Dopo aver Inserito il disco destinazione 
premete un tasto qualsiasi e nuovamen- 
te lo schermo scomparirà, mentre la lu- 
ce rossa del drive inizierà a lampeggia- 
re: sempre tutto normale? 

Questa procedura va ripetuta solamen- 
te tre volte, fino a quando il programma 
avvertirà che la copia è stata completa- 
ta. A questo punto, premendo un fasto, 
rejnizializzerete TURBOCOPY, prepa- 
randolo per un'altra copia. Poiché 



TURBOCOPY non prevede un’uscita 
software dal programma, per disattivar- 
lo occorre spegnere ii computer. 
Eventuali errori in lettura o in scrittura 
vengono segnalati indicando la traccia 
e ii settore sul quale è presente l'errore, 
ed il suo tipo (per una legenda dì questi 
codici di errore si veda il manuale del 
drive o la serie di articoli ^Iniziare con 
un sistema a dischi' 1 , da noi pubblicata 

10 scorso anno}. 

TURBOCOPY è uno dei più veloci pro- 
grammi di back-up per 154 1 attualmen- 
te esistenti (un back-up completo richie- 
de soltanto circa tre minuti!) che va ad 
aggiungersi alle ormai numerose utility 
della collezione di SUPERCOMMODO- 
RE. 

11 princìpio di funzionamento di TUR- 
BOCOPY sì basa sulla bufferìzzazione 
dei dati: viene creato, all’interno del 


C64, un buffer di circa 55 Kbyte, che 
viene riempito ad ogni lettura dal primo 
disco e riscritto quindi sul secondo. 
Poiché un disco contiene fino a 170 
Kbyte dì dati, occorrono tre diverse 
"passate" per poterlo duplicare intera- 
mente, 

E superfluo sottolineare che qualsiasi 
dato eventualmente presente sul disco 
destinazione andrà distrutto: TURBO- 
COPY produce infatti una copia esatta 
del disco sorgente, compreso nome del 
disco e codice identificatore. 

Note p«r 1E carica mento e la 
digitazione 

Se sì dispone della cassetta allegata alla 
rivista, è sufficiente posizionarsi con il 
nastro in corrispondenza dell'Inizio del 
programma e digitare: 
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LOAD 

It programma andrà quindi mandato in 
esecuzione digitando; 

RUN 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
cassetta è sufficiente inserire questuiti- 
ma completamente ria v volt a nel regi- 
stratore» azzerare il contanastro e digi 
tare: 

LOAD*"” 

Dal momento che sicuramente non esì- 


ste sulla cassetta alcun programma di 
nome il computer passerà in rasse- 
gna tutti i programmi incontrati, visua- 
lizzandone il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
i nomi dei programmi e la relativa posi* 
zi one del contanastro (sottrarre tre o 
quattro unità dal valore corrispondente 
all’ apparizione del messaggio 
FOUND..,}. 

Gli abbonati alla sola rivista dovranno 
invece usare li programma MLX (vede- 
re nelle pagine verdi) per digitare il lista- 
to in linguaggio macchina. La proceda 
ra da seguire, in questo caso, è: 


L. Spegnere e riaccendere il computer 
e digitare: 

PQK E44 ,3 2 : POK E32 ‘2 56 , 0: N £ W 
[RETURN] 

2. Caricare in memoria MLX (che sarà 
stato precedentemente digitato e salva- 
to) e rispondere alle sue richieste circa 
gli indirizzi iniziale e finale con: 

indirizzo iniziale: 2049 
indirizzo finale : 4592 

3. Dopo avere digitato e salvato il pro- 
gramma tramite MLX si potranno segui- 
re per il caricamento le istruzioni date 
più sopra per ì possessori di cassetta. 


Tnrbocopy 

per C64 





2 04 9 

: 01 3 

,008 

,01 0 

,000 

, 1 58 

,032 

,222 

2055 

: 050 

,048 

,054 

,051 

f 032 

,000 

,242 

2061 

: 000 

,000 

,076 

,026 

,008 

,000 

,123 

2067 

t 003 

,000 

,01 3 

,226 

,017 

,108 

,130 

2073 

: 00 ; 

,173 

,018 

,008 

,133 

,253 

,104 

2079 

: 7 73 

,019 

,008 

,133 

,254 

,173 

,023 

2085 

: 020 

,008 

,133 

,251 

,173 

,021 

,131 

2091 

: 008 

,133 

,252 

,056 

,173 

,022 

,175 

2097 

: 008 

,237 

,020 

,008 

,133 

,249 

,192 

2103 

: 1 73 

,023 

,008 

,237 

,021 

,008 

,013 

2109 

; 1 33 

,250 

,032 

,231 

,255 

,169 

,107 

21 1 5 

: 01 5 

,162 

,008 

,168 

,032 

,1 86 

,126 

2121 

: 255 

,169 

,000 

,032 

,189 

,255 

,205 

21 27 

: 032 

,192 

,255 

,056 

,165 

,249 

,004 

2133 

: 233 

,034 

,133 

,249 

,165 

,250 

,125 

21 39 

; 233 

,000 

,133 

,250 

,144 

,004 

,087 

21 45 

: 1 69 

,034 

,208 

,01 2 

,165 

,249 

,166 

21 51 

: 073 

,255 

,133 

,248 

,169 

,034 

,247 

21 57 

: 22 9 

,248 

,240 

,085 

,133 

,248 

,01 2 

21 63 

; 1 62 

,01 5 

,032 

,201 

,255 

,169 

,181 

2169 

: 077 

,032 

,21 0 

,255 

,169 

,045 

,1 41 

21 75 

; 0 32 

,210 

,255 

,169 

,0 87 

,032 

,144 

21 81 

: 21 0 

,255 

,165 

,253 

,032 

,21 0 

,234 

21 87 

: 255 

,165 

,254 

,0 32 

,210 

,255 

,030 

2193 

: 1 65 

,248 

,032 

,21 0 

,255 

, 1 60 

,191 

2199 

: 000 

,177 

,251 

,032 

,210 

,255 

,052 

2205 

; 200 

,196 

,248 

,208 

,246 

,032 

,007 

221 1 

: 204 

,255 

,192 

,034 

,1 44 

,029 

,253 

221 7 

: 024 

,165 

,251 

,105 

,034 

,133 

,113 

2223 

: 251 

,165 

,252 

,105 

,000 

,133 

,057 

2229 

: 2 52 

,024 

,165 

,253 

,105 

,0 34 

,246 

2235 

;1 33 

,253 

,165 

,254 

,105 

, 000 

,0 73 

2241 

: 1 33 

,254 

,076 

,082 

,008 

,162 

,140 

2247 

: 01 5 

,032 

,201 

,255 

,169 

,077 

,180 

2253 

: 032 

,21 0 

,255 

,169 

,045 

,032 

,180 

2259 

: 21 0 

,255 

,169 

,069 

,032 

,210 

,132 

2265 

: 2 55 

,173 

,024 

,008 

,032 

,21 0 

,151 

2271 

; 2 5 5 

,173 

,025 

,008 

,032 

,21 0 

,158 

2277 

: 2 55 

,032 

,204 

,255 

,032 

,01 8 

,001 

2283 

: 01 1 

,147 

,01 7 

,032 

,032 

,032 

,250 


2289 

: 084 

,085 

,082 

,066 

,079 

,067 

,192 

2295 

: 0 7 9 

,080 

,089 

,032 

,068 

,073 

,156 

2301 

; 032 

,083 

,085 

,080 

,069 

,082 

,172 

2307 

: 067 

,079 

,077 

,077 

,079 

,068 

,194 

231 3 

: 079 

,082 

,‘069 

,01 3 

,01 3 

,032 

,041 

2319 

: 032 

,032 

,032 

,032 

,0 66 

,065 

,01 8 

2325 

: 067 

,075 

,085 

,080 

,032 

,049 

,153 

2331 

: 053 

,052 

,049 

,032 

,073 

,078 

,108 

2337 

: 032 

,051 

,032 

,080 

,065 

,083 

,120 

2343 

: 083 

,073 

,01 3 

,032 

,032 

,032 

,048 

2349 

: 0 32 

,032 

,032 

,032 

,070 

,079 

,066 

2355 

: 0 8 2 

,077 

,06 5 

,084 

,084 

,065 

,252 

2361 

: 0 32 

,065 

,085 

,084 

,079 

,077 

,223 

2367 

: 065 

,084 

,073 

,067 

,065 

,077 

,238 

2373 

: 069 

,078 

,084 

,069 

,01 3 

,013 

,139 

2379 

: 032 

,01 8 

,080 

,082 

,069 

,077 

,177 

2385 

; 07 3 

,032 

,085 

,078 

,032 

,084 

,209 

2391 

: 065 

,083 

,084 

,079 

,046 

,046 

,234 

2397 

: 04 6 

,032 

,032 

,0 32 

,01 3 

,01 3 

,005 

2403 

: 000 

,032 

,01 8 

,01 1 

,01 3 

,032 

,205 

2409 

: 073 

,078 

,083 

,069 

,082 

,073 

,051 

2415 

: 083 

,067 

,073 

,032 

,068 

,073 

,251 

2421 

: 083 

,067 

,079 

,032 

,083 

,079 

,028 

2427 

: 082 

,071 

,046 

,032 

,000 

,032 

,130 

2433 

; 200 

,010 

,169 

,165 

,032 

,056 

,249 

2439 

:011 

,169 

,000 

,162 

,016 

,133 

,114 

2445 

: 003 

,134 

,004 

,032 

,106 

,01 1 

,175 

2451 

; 240 

,031 

,008 

,160 

,000 

,145 

,21 9 

2457 

: 003 

,230 

,003 

,040 

,048 

,01 2 

,233 

2463 

: 032 

,10 6 

,01 1 

,145 

,003 

,200 

,144 

2469 

: 208 

,248 

,230 

, 004 

,208 

,229 

,01 2 

2475 

: 041 

,031 

,170 

,202 

,134 

,006 

,243 

2481 

: 076 

,097 

,010 

,032 

,106 

,01 1 

,253 

2487 

rOl 6 

,007 

,041 

,063 

,133 

,005 

,192 

2493 

: 076 

,144 

,009 

,032 

, 1 61 

,010 

,109 

24 99 

: 032 

,01 8 

,01 1 

,013 

,03 2 

,01 8 

,063 

2505 

: 073 

,078 

,083 

,069 

,082 

,073 

,147 

251 1 

: 083 

,067 

,073 

,032 

,068 

,073 

,091 

251 7 

: 083 

,067 

,079 

,032 

,068 

,069 

,099 

2523 

; 083 

,084 

,046 

, 000 

,032 

,200 

, 1 52 

2529 

: 01 0 

,032 

,0 56 

,01 1 

,169 

,000 

,247 

2535 

il 33 

,003 

,169 

,016 

,133 

,004 

,177 
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2541 : 160,000,032,106,01 1 ,20 8,24 2 
2 54 7 : 02 3,1 77, 003,008,032,056,030 
2553 : 01 1 ,230,003,040,048,240,053 
2559 : 177, 003, 0 32, 0 56, 01 1 ,20 0,22 2 
2 565 : 208, 248, 230, 004, 208, 228, 107 
2571 : 01 6, 01 5, 041 ,063,1 33,005,028 
2 577 : 165, 003, 166, 004, 1 33,048,024 
2 583 : 1 34,0 49,076,2 39,009,201 ,21 9 
2 589 : 00 3, 20 8, 00 6, 0 32,1 61 ,01 0,1 93 
2 595 : 076,1 00,009,201 ,009,208,1 26 
2601 ; 01 1 ,1 65,048,166,049,1 33,101 

260 7 : 00 3, 134, 004, 076, 239, 00 9, 000 
2613 :201,036,208,003,076,156,221 
2619 : Oli ,032,161 ,010,032,01 8,067 
262 5 : 01 1 ,01 3,032,032,081 ,082, 066 
2631 : 073, 0 84, 069, 032, u 69, 082, 224 
2637 : 082, 079, 082, 033, 084, 0 82, 007 
2643 : 065, 0 67, 067, 073, 065, 000, 1 64 
264 9 : 165, 005, 032, 1 71 ,01 0,076,036 
2655 : 1 56, Oli ,1 69,054,1 33,001 ,1 07 
2661 : 032, 01 8,01 1 ,01 3,032,032,239 
2667 : 082, 069, 0 65, 06 8, 0 32, 06 9, 236 
2673 : 082,0 82,079,082 ,033,084,043 
2679 : 082, 06 5, 067, 067, 0 73, 06 5, 026 
268 5 : 000, 16 5, 00 5, 032, 1 71 ,010,2 52 
2691 : 032,01 8,01 1 ,032,083,069,1 20 
2697 : 0 84, 084, 079, 082, 069, 000, 02 3 
2703 :1 65,006,032,1 71 ,010,1 69,1 84 
270 9 : 01 3,032,21 0,255,169,052,1 1 2 
2715 :1 33,001 ,120,076,144,009,126 
2721 ■ :169, 054, 133, 001 ,169,027,202 

272 7 : 141 ,01 7,208,096,248,1 70,023 

273 3 : 2 4 0,008,1 69,000,024,1 0 5,207 

273 9 : 001 ,202,208,250,21 6,072,104 
2745 :074,074,074,074,032,1 93,1 94 
2751 :010,104,041 ,015,009,048,162 

2757 {076,21 0,255,088,169,037,008 
2763 {141 ,01 5,212,169,000,141 ,113 
2769 {020,21 2,169,043,1 41 ,01 9,045 
2775 {212,169,047,141 ,024,212,252 
2781 {169,052,141 , 02 3 , 21 2 , 1 69 , 21 9 

27 87 : 032, 141 ,018,212,169,033,064 
2 7 93 : 141 ,01 8,212,032,228,255,095 
2799 :208, 01 3, 1 73, 028, 21 2, 0 73, 1 78 
2805 {089,1 41 ,022,212,208,241 ,134 
2811 {076,226,010,169,000,141 ,105 
281 7 :01 8,21 2,169,01 1 ,1 41 ,01 7,057 
2823 {208,160,032,202,208,253,046 
2829 {136,208,250,1 20,096 ,104,159 
2835 :1 33,053,1 04,1 33,054,1 60, 144 
2841 {000,230,053,208,002,230,236 
2847 :054,177,053,240,011 ,032,086 
2853 {210,255,230,053,208,245,21 4 
28S9 :230,054,208,241,230,053,035 
2865 {208, 002, 230, 054, 108, 053, 192 
2 871 : 000,1 33,1 0 7,16 9,053,1 33,1 38 
2877 {001 ,1 69, Oli ,1 41 ,000,221 ,092 


2883 {173,000,221 ,01 6,251 ,1 69,129 
2889 {003,1 41 ,000,221 ,162,004,092 
2895 {169,003,070,107,106,070,092 
2901 {107,106,074,074,234,141 ,053 
2907 {000,221 ,202,208,239,162,099 
291 3 {001 ,202,208,253,169,052,21 4 
2919 {133,001 ,096,169,053,133,176 
2 92 5 : 001 ,169,01 1 ,1 41 ,000,221 ,1 40 
2931 {173,000,221 ,016,251 ,1 69,1 77 
2937 {003,1 41 ,000,221 ,1 62,005,1 41 
2943 {202,234,208,252,1 62,004,1 65 
2949 {173,000,221 ,010,008,010,043 
2955 {038,1 07,040,038,107,202,1 59 
2961 {208,242,1 69,052,1 33,001 ,182 
2967 {165,107,073,255,096,032,111 
2 973 {1 61 ,010,032,01 8,01 1 ,013,1 46 
297 9 : 01 3,032,032,067,079,080,21 0 
2985 {073,065,032,067,079,077,050 
2991 {080,076,069,084,065,033,070 
2997 : 01 3,01 3,000,032,200,01 0,1 93 
3003 {032,161 ,010,076,233,008,195 
3009 {255,255,255,255,255,255,1 87 
3015 {255,255,255,255,255,255,193 
3021 {255,255,255,255, 25S, 2 55,1 99 
3027 {255,255,255,255,255,255,205 
3033 {255,255,255,255,255,255,211 
3039 {255,255,255,255,255,255,217 
3045 {255,255,255,255,255,255,223 
3051 {255,255,255,255,255,255,229 
3057 {255,255,255,255,255,255,235 
3063 {255,255,255,255,255,255,241 
3069 {255,255,255,255,255,255,247 
3075 {255,255,255,255,255,255,253 
3081 {255,255,255,255,255,255,003 
3087 {255,255,255,255,255,255,009 
3093 {255,255,255,255,255,255,01 5 
3099 {255,255,255,255,255,255,021 
3105 {255,255,255,255,255,255,027 
3111 {255,255,255,255,255,255,033 
3117 {255,255,255,255,255,255,039 
31 23 {255,255,255,255,255,255,045 
3129 {255,255,255,255,255,255,051 
3135 :255,255,255,255,255,255,057 
3141 {255,255,255,255,255,255,063 
3147 {255,255,255,255,255,255,069 
3153 {255,255,255,255,255,255,075 
3159 {255,255,255,255,255,255,081 
3165 {255,255,255,255,255,255,087 
3171 {255,255,255,255,255,255,093 
31 77 {255,255,255,255,255,255,099 
3183 {255,255,255,255,255,255,105 
3189 {255,255,255,255,255,255,111 
3195 {255,255,255,255,255,255,11 7 
3201 {255,255,255,255,255,255,123 
3207 {255,255,255,255,255,255,129 
321 3 {255,255,255,255,255,255,135 
3219 {255,255,255,255,255,255,1 41 
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3225 : 255, 255, 255, 255,255, 255, 1 47 
32 31 : 2 55, 2 55, 2 5 5, 2 55, 2 55, 2 55,1 53 
3237 : 255, 255, 255, 255, 255, 255, 1 59 
3243 :255, 255, 255, 255, 255, 255,1 65 
324 9 : 2 55,255,255,255,255,255,1 71 
3255 : 255, 255, 255, 255, 255, 2 55, 1 77 
3261 : 255, 255, 255, 255, 255, 255,1 83 

32 67 : 255,255,255,255,2 55,255,1 89 
3273 : 255, 255, 255, 255, 255, 255, 1 95 
327 9 : 2 55,2 55,255,2 5 5,255,2 55,201 
32 85 : 255, 255,2 55, 255,2 55,255,207 
32 91 : 255, 255,2 55, 255,255,255, 21 3 

32 97 : 255,255,2 55,255,2 55,255, 21 9 

3303 :2 55, 255, 2 55, 2 55, 2 55, 2 55, 225 
3309 : 255, 255, 255, 255, 255, 255, 231 
331 5 : 255, 2 5 5, 2 55, 255, 2 5 5, 2 55, 2 37 
3321 : 255, 255, 255, 255, 255, 255, 243 

3327 ; 2 55, 1 65, 000, 041 ,006,2 40,1 94 
3333 :01 7,201 ,002,208,003,076,000 
3339 :026,003,201 ,004,208,003,200 
3 34 5 : 0 76, 1 97, 00 5, 076, 0 78, 004, 1 97 

33 51 : 0 76,1 58,2 5 3,1 6 5,068,074,049 

33 57 : 0 74, 074, 074, 07 4,1 70,1 89,1 72 
3 363 : 074, 00 4,1 33,01 2,1 65,1 1 9,0 30 
3 369 : 20 8,00 4, 2 30,1 1 9, 1 6 5,06 7,066 
3375 :1 33,01 0,169,005,1 33,009,250 
3381 :169, 090,1 33,075,169,082,003 

3387 :133, 036, 032, 086, 245, 080, 159 

33 93 : 2 54,1 84,1 73,001 ,02 8,1 9 7,1 34 
3399 : 036, 240, 009, 1 98,075,208,069 

34 0 5 : 2 39,1 6 9,01 0,076,1 05,249,1 57 

3411 :162, 000, 080, 254, 184, 173, 168 

341 7 : 001 ,02 8,1 49,037,2 32,2 2 4,24 8 
34 2 3 : 007,1 4 4,24 3,032,1 51 ,244,1 48 
3429 1165,022,069,023,069,024,21 7 
3435 :069,025,069,026,240,007,031 
3441 :198,009,208,1 92,076,030,058 
34 4 7 : 244,1 65,024,1 97,006,240,227 
3453 :003,0 76,011 ,244, 133, 034, 114 
3459 1165,022,166,023,133,018,146 
3 46 5 il 34,01 9,1 66,025,232,232,1 77 
3471 1228,067,144,002,162,000,234 

34 7 7 1 1 69,002,1 33,049,076,061 ,1 27 
3483 1004,202,208, 021, 076, 025, 179 
3489 : 004,1 34,00 7,1 34,025,1 38,091 
3495 :069,024,069,023,069,022,1 87 
3501 :1 33,026,032,052,249,162,059 

3507 1090,032,086,245,080,254,198 
351 3 il 84,173,001 ,02 8,21 7,0 36,056 
351 9 :000,20 8,21 8 , 200 , 1 92 , 008 , 24 9 
3525 1208,240,032,086,245,080,064 
3531 : 254,1 84,1 7 3,001 ,028,145,220 

3537 1048,200,208,245,160,186,232 
354 3 : 080, 254,1 84,1 73,001 , 028,1 67 
3549 1153,000,001 ,200,208,244,003 
3555 :032,224,248, 165, 056, 197, 125 
3561 :071,208,045,032,233,245,043 


3 56 7 il 97,058,240 , Oli , 1 66,00 7,1 50 
3573 1189,080,001 ,208,035,169,159 
3579 1005,208,033,230,025,165,1 49 
3585 1025,032,094,005,1 85,000,086 
3591 1002,032,094,005,200,208,036 
3597 :247, 173,000,028,073,008,030 
3603 ; 1 4 1 ,000,028,169,255,044,144 
3609 : 1 69, 1 32,1 6 6,007,009,1 2 8,1 24 
3615 1157,080,001 ,008, 160, 000, 181 
3621 1140,254,002,040,016,007,240 
3627 il 98, 010, 208, 003, 076, 1 58,1 84 
3633 :253,138,024,101 ,012, 197, 006 
3639 1067,144, 00 2, 229, 067, 170, 222 
3645 il 89, 080, 001 , 01 6, 005, 232, 072 
3651 1138,076,054,004,076,162,065 
3657 1003,009,009,01 0,01 1 ,1 73,032 
366 3 : 01 2,02 8,041 ,0 31 , 009,1 92,1 36 
3669 : 1 41 , 012, 028, 169, 255, 141 ,063 
3 67 5 : 003,028,1 69,085,1 41 , 001 ,006 
3681 1028,165,068,074,074,074,068 
3687 :074, 074, 1 70, 189, 190, 005, 037 
3693 : 1 33,01 2,1 60,000,1 32,01 0,044 
3699 :162, 000, 165, 057, 153, 000, 140 
3705 :002,200,200,1 65,01 0,1 53,083 
3711 :000,002,200, 165, 006, 153, 141 
371 7 :000,002,200, 1 65,01 9,1 53,1 60 
3723 :000,002,200, 165, 018, 153, 165 
3729 :000,002,200,1 69,01 5,1 53,1 72 
3735 1000,002, 200, 153, 000, 002, 252 
3741 :200,185,250,001 ,089,251 ,109 
3747 lOOl ,089,252,301 ,089,253,080 
3753 :001 , 153, 249, 00 1,230, 010, 045 
3759 1165,010,197,067,144,192,182 
3765 i 1 52,072,169,002,1 33,049,246 
3771 1032,048,254,104,1 68,1 36, 1 61 
3777 i 1 85,000,002,1 53,069,002,092 
3783 :136, 208, 247, 173, 000, 002, 197 
3789 i 1 41 ,069,002,032,245,253,1 79 
3795 :169, 000, 133, 050, 169, 255, 219 
3 801 il 41 ,001 ,028,1 62,005,080,1 22 
3807 :254, 184,202,208,250,162,203 
381 3 lOl 0,1 64,050,080,254,1 84,203 
3819 1185,000,002, 141, 001 ,028,080 
3825 1200,202,208,243,162,009,241 
3831 ;080,254, 184, 169, 085, 141 ,136 
3837 : 001 ,02 8,202,20 8,24 5,1 69,08 2 
3843 1255,162, 005, 080, 254, 184, 175 
3849 : 1 4 1 ,001 ,028,202,208,247,068 
3855 :169, 085, 080, 254, 184, 141 ,160 
3861 :001 ,028,1 62,1 88,080,254,222 
38 67 il 84,1 69,221 , 1 41 ,001 , 028,003 
3873 1232,208,245,160,000,080,1 90 
3879 i 254,1 84,1 69,221 ,1 41 ,001 ,241 
3885 :028,1 36, 208, 24 5, 1 69, 085, 148 
3891 il 66,01 2,080,2 54,1 84,1 41 ,1 20 
3897 1001 ,028,202, 208, 247, 165, 140 
3903 1050,024,105,01 0,1 33,050,1 79 
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3909 : 1 98, 01 0,208, 1 4 2, 0 80, 2 54, 1 93 
391 5 :1 84,080,254,1 84,032,000,041 
3 921 : 2 54, 169,000, 141 ,254,002,133 
3927 : 1 33, 080, 1 69, 001 ,076,1 05,1 39 
3933 : 249, 133, 008, 04 4, 000, 024, 039 

3 939 : 01 6,251 ,1 69,01 6,1 41 ,000,1 80 

394 5 : 02 4, 04 4, 000, 024, 0 4 8, 2 51 ,240 
3951 -.162,004,1 69,000,006,008,204 

3957 : 0 42, 01 0,006,008,042,01 0,23 5 
3963 :1 41 ,000,024,202,208,240,1 70 
3969 : 162,001 ,202,208,000,234,1 68 
3975 : 2 34,1 69,01 5,1 41 ,000,024,206 

39 81 : 0 96, 04 4, 00 0,0 2 4, 01 6,2 51 ,060 

3987 : 169,01 6,1 41 ,000,02 4,044,029 
399 3 : 000, 024, 048, 251 , 162,004,130 
3999 : 202, 208, 2 53,1 4 2,000,024,220 
4005 : 162,004,1 73,000,024,07 4,0 90 
401 1 : 00 8, 0 74, 074,1 02,008,040,221 

401 7 : 1 02,008 ,202,208,241 ,1 69,083 

402 3 : 01 5, 1 41 ,000,024,1 65,008,024 

40 29 : 096,00 8, Oli ,01 6,007,076,1 47 
40 3 5 : 0 93, 006,1 6 5,067,1 33,010, 1 57 
4041 : 032, 000, 254, 169,000,032,1 76 
4047 :094,005,234,032,142,005,207 
40 53 : 0 48, 235, 170, 202,1 34,007,241 
4059 : 1 69,002,1 3 3,049,1 60,000,220 

4 065 : 032,1 4 2,00 5,153,000,00 2,047 
40 71 : 200, 208, 247,032,233,245,11 6 
4077 : 1 33,058,032,143,247,173,255 
40 83 : 2 54, 002,1 33,1 24,169,000, 1 57 

40 89 : 1 41 ,254,002,133,080,165,000 
4095 : 01 5,24 0,003,076,1 72,007,000 

41 01 : 032, 01 6, 24 5, 162, 009, 080, 0 37 

41 07 : 2 54 , 1 84,202,208,250,169,254 
4113 :2 55, 141, 003, 028, 173, 01 2, 117 
41 1 9 : 02 8, 041 ,031 ,009,1 92,141 ,20 9 
41 25 : 01 2, 0 28, 1 69, 255, 1 62, 00 5, 1 48 
41 31 : 141 ,001 ,028,1 84,080,254,21 1 

41 37 : 1 8 4,202,208,250,1 60,1 87,208 
4143 :1 85,000,001 ,080,254,1 84,239 
41 49 : 1 41 ,001 ,028,200,208,244, 107 
41 55 ;1 65, 1 24, 1 41 , 2 54 , 002 , 1 77 , 1 54 
41 61 : 04 8, 080, 254, 1 84, 1 41 , 001 , 00 5 

41 67 : 02 8, 20 0, 20 8, 2 4 5, 0 80, 2 54, 062 
4173 : 0 32, 000, 2 54,1 7 3,000,028,052 
41 79 : 073, 008, 1 41 ,000,028,169,246 
41 85 :000, 141 ,254,002,1 98,010,1 82 
4191 ; 2 40, 00 3, 076, 20 4, 00 5, 076,1 87 
41 97 : 1 58, 253, 1 20, 1 69, 007, 1 33, 173 
420 3 : 071 ,1 62,000,202,208,253,235 
4 209 : 169, 001 ,1 33,006,1 69, 1 76,2 55 
421 5 ; 032,1 63,007,169,224,032,234 
4 221 : 1 63,007,032, 1 42,00 5, 165,127 
4227 : 00 6,1 33,01 3,1 69,000,032,228 
4233 : 094,005,1 65,006,009,128,032 
4239 : 032, 094, 005, 032,1 52,007,209 
4 24 5 : 1 69,000,133,1 20,133,131 ,067 
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4251 : 133, 1 1 9,1 33,01 6,1 69,226,1 83 
4 2 57 : 032,1 63,007,201 ,002,1 44,1 98 
4263 : 022,1 65,01 6,208,01 8,1 69,2 53 
4269 il 92,032,1 63,007,1 69,1 76,1 44 
4 275 : 032,1 63,007,230,01 6,1 69,028 

42 81 : 00 0,133, 120, 1 33, 1 31 , 1 62, 0 96 

4287 1000,134,009,189,080,001,092 
4 2 93 : 201 ,255,208,008,232,228,049 
4299 :067,208,244,076,240,006,020 
4 305 :1 64, 1 20,1 85,21 9,2 54,24 0,1 1 1 
4311 1010,169,000,157,080,001 ,120 

4317 1230,009,076,201 ,006,134,109 
4323 : 00 7, 2 32,1 3 8,009,1 2 8,0 32,00 5 
4 329 i 0 94, 00 5,1 66,00 7,076,201 ,01 4 
4335 i006,l 65,009,240,023,1 33,047 
4 341 ili 9,165,1 31 ,056,249,21 9,1 60 
4347 :254, 133, 131, 185, 219, 254, 147 
4 353 : 088, 032,1 1 8,21 4,1 20,230,035 
4359 :1 20,076,1 59,006,1 65,1 31 ,1 52 
4 36 5 : 088, 032, 1 1 8,21 4,1 20,2 30,04 7 
4371 i 006,1 65,006,201 ,01 2,240,1 37 
4377 i Oli ,201 ,023,240,007,201 ,1 96 
4383 ; 036, 240, 003, 076,1 34,006,01 4 
4389 :1 69,000,032,094,005,1 69,250 

43 95 : 001 ,032,094,005,234,032,1 85 

4401 il 42,005,1 65,01 3,1 33,006,001 
4407 1169,176,032,163,007,165,255 
4413 i 006, 00 9,1 28,032,094,005,079 
4419 :1 69,005,1 33 ,01 4 , 1 69 , 009 , 054 
4425 :032,094,005,169,230,032,123 
4431 :1 63,007,169,228,1 62,000,040 

4437 :1 34,01 5,032,1 63,007,201 ,1 25 

44 4 3 : 002, 1 76,01 6,1 69,009,032,239 

44 4 9 : 094, 005, 230, 01 5,1 69,22 8,070 
4455 :032,163,007,201 ,002,144,140 
4461 :009, 198,01 4,208,21 3,169,152 

4 4 67 : 00 5, 0 76, 1 4 6,007,230,006,073 
4473 :165, 006, 20 1,01 2, 240, 011, 24 4 
44 79 : 201 ,023,240,007,201 ,036,067 
4 485 : 240, 01 1 ,076,060,007,169, 1 84 
4491 : 003, 032, 094, 005, 076,1 27,220 

4497 : 006, 032, 094, 005, 076, 108, 21 0 
4 50 3 : 00 6, 1 69, 000, 1 62, 020, 1 57, 1 53 
4509 : 080 , 001 , 202, 016, 2 50, 096, 034 
451 5 :1 33,000,088,165,000,048,085 
4 521 : 252,1 20,096,032,01 0,24 5,1 56 

4527 :1 60, 1 87, 1 85,000,001 ,080,020 
4 53 3 : 254,1 84,0 77,001 ,028,208,165 
4 539 : 02 6, 200, 20 8, 2 4 2, 165,1 24,128 
4545 :1 41 ,254,002,1 77,048,080,1 27 
4 551 : 2 54,1 84,077,001 ,02 8,20 8,1 83 

4 557 : 00 8, 200, 1 92,253,208,241 ,027 
4563 : 076, 080, 006,1 69,000,1 41 ,1 71 
4 56 9 : 254, 002, 076,1 97,246,255,223 
4575 : 2 55, 000, 000, 000, 000, 000, 222 
4 581 i 000, 000, 000, 000, 000, 000, 229 
4587 1016,080,000,255,000,000,074 
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TECNICHE DI 
PROGRAMMAZIONE 
SUL COMMODORE 64 

di D, Lawrence 

Gruppo Editoriale Jackson 



U un libro diverso dalle solite raccolte 
dì programmi e da quei volumi che 
pretendono di migliorare la capacità dì 
programmazione del lettore presentar) 
do banali routine di conversione tra gra 
di Fahrenheit e Centigradi, o tra piedi 
e metri. 

Il libro è infatti dedicato a tutte quelle 
persone che hanno già iniziato a percor 
re re i primi passi nella programmazio- 
ne. ma che trovano difficoltà nel creare 
programmi poco più che dilettanteschi. 
Vengono presentati suggerimenti, truc- 
chi. algoritmi ed informazioni tali da 
permettere un vero “ salto di qualità ** 
nella produzione di propri programmi, 
siano essi dei giochi o degli applicativi, 
tn particolare per la creazione di questi 
ultimi vengono fornite spiegazioni e rou- 
line “pronte per Fuso", per raggiungere 
obbiettivi semplici (come allineare i de* 


cimali di una serie di numeri tabulati), 
oppure complessi (come l'inserimento 
di dati ad alta velocità in grosse matri- 
ci). 

I metodi forniti per l’impostazione e la 
stesura dei programmi si rifanno alle 
teorie della modularità, e vengono rive- 
lati sistemi per rilevare, gestire e rin- 
tracciare gli errori, insieme a come otte- 
nere il massimo dalle ca rat tensile he di 
velocità, memoria, funzioni e gestione 
dati del C64, 

Tutte Ee routine presentate sono listate 
in forma molto leggibile, e non conten- 
gono caratteri grafici o di controllo che 
possano inficiare la comprensione deile 
linee BASIC, 

COMMODORE 16: 
ESSENZIALI E 
ROUTINE 

di D. Lawrence 

Gruppo Editoriale Jackson 

S ta iniziando a diffondersi anche in 
Italia la letteratura sul nuovo Ciò, 
e già sì trovano alcuni libri che trattano 
gli argomenti più interessanti, dai giochi 
alle utility. Questo libro, in particolare, 
sì propone di offrire allo stesso tempo 
una raccolta di programmi - contenuti 
nella cassetta allegata - che è possibile 
adattare per i propri scopi, un elenco 
di subroutine che è possibile aggiungere 
at propri programmi ed un’ìntroduzio- 
ne al linguaggio BASIC del CI 6. 

Divìso in cinque capitoli, tratta rispetti- 
vamente ne) primo (“Esperi menti con 
l'ora”) come utilizzare il dock interno 
del CI 6, nel secondo (“Dipingere con i 
numeri") come creare grafici ad isto- 
grammi o diagrammi a torta, nel terzo 
("Suoni e luci 11 ) come generare disegni 
in alta e bassa risoluzione e come ela- 
borare e riascoltare motivi musicali. Il 
quarto capìtolo (“Sempre più seriamen- 
te ") presenta un pìccolo archivio, un 
programma con funzioni di “dizionario” 
per nomi e numeri ed un word proces- 
sor realizzato in BASIC. 


L'ultimo capitolo (“Questioni di soldi* ) 
contiene un programma per l'aggiorna- 
mento del proprio conto corrente ban- 
cario ed un altro programma per gestire 
una pìccola serie di conti nella forma 
consueta di debiti e crediti. I program- 



mi, contenuti interamente sulla casset- 
ta, sono invece spezzettati all'interno 
del libro In forma di vari “moduli", ognu- 
no dei quali separatamente commenta- 
to ed analizzato, ed i listati sono realiz- 
zati con una particolare codifica, che eli- 
mina tutti i caratteri grafici o di control- 
lo, migliorandone la leggibilità comples- 
siva. 


I libri recensiti possono 
«etere ordinati 
ifiHnaado 
Il coupon di puff. 82 
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Un piano...elettronico per C64 


dì P. Ponzo 

irad. ed adatt 

di C. Stefani 


Ecco un programma allo stesso 
tempo otite per chi conosce la 
mnalca e divertente per chi inve* 
ce mi timlta a "^trimpellare" qual- 
cosa. 


U na volta caricato - attraverso l'ap- 
posito programmino caricatore - e 
mandato in esecuzione il programma 
principale, verrrà visualizzata la tastie- 
ra di un pianoforte ed it computer do- 
manderà se si desidera che venga suo- 
nato un brano introduttivo. In caso af- 
fermativo due veloci mani da pianista 
sì avvicineranno alla tastiera e si pro- 
durranno neiresecuzione di un noto bra- 
no, già memorizzato all'interno del pro- 
gramma stesso. 

Vi saranno quindi offerte le opzioni di 
caricare un brano da disco, caricarlo da 
nastro, Iniziare a suonare ed uscire da! 
programma. Dal momento che non di- 
sporrete di un brano già registrato su 
nastro o disco, la cosa più logica sarà 
iniziare a suonare, premendo i tasti con- 
trassegnati dai caratteri visualizzati sul- 
lo schermo. A mano a mano che proce- 
derete nella pressione dei tasti, verran- 
no visualizzate sul video le mani che 
premono gli stessi tasti sulla tastiera del 
piano. Potete correggere eventuali er- 
rori premendo il tasto che provoca 
il ritorno indietro di una nota. Segnalate 
infine al computer che avete terminato 
dì suonare, premendo il tasto 
Verrà così visualizzato un secondo me- 
nu di selezione, con le seguenti opzioni: 

1 suonare 
2 aggiungere note 
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3 correggere note 

4 save su disco 

5 save su nastro 

6 cambiare il brano di introduzione 

7 cambiare voce 

8 opzione libera per personalizzazioni 

Selezionando l'opzione 1, si riascolterà 
il brano precedentemente composto o 
caricato da nastro o disco; l'opzione 2 
permette di aggiungere note ad un bra- 
no precedentemente composto o cari* 
cato da nastro o disco, mentre l'opzione 
3 permette di correggere singole note 
stonate o comunque errate all'interno 
del brano. 

Le opzioni 4 e 5 non hanno bisogno di 
commenti, mentre la 6 permette di so- 
stituire il brano suonato dal computer 


all’inizio del programma con un altro 
brano, precedentemente composto o ca- 
ricato da nastro o disco, e di inserirlo 
automaticamente alf interno del pro- 
gramma stesso. L'opzione 9 permette 
di usare alternativamente una delle tre 
diverse voci del C64 t contraddistinta 
ognuna da una diversa forma d'onda; 
l'opzione 9, infine, è già pronta e lascia- 
ta lìbera per chi intendesse aggiungere 
al programma proprie e particolari fun- 
zioni. 

Caricando un brano da disco, verrà 
dapprima mostrato un elenco dei brani 
attualmente presenti sul disco stesso (ri- 
conoscibili dal programma attraverso 
uno spazio vuoto come primo carattere 
del nome del file), e quindi verrà richie- 
sto il nome stesso. Si noti a questo pro- 


posito che per caricare un brano da na- 
stro è obbligatorio digitare il nome del 
file, in quanto quest'ultimo viene regi- 
strato in forma sequenziale, come si no- 
ta dai lampeggiamento discontinuo del- 
lo schermo durante il caricamento da 
nastro. 

Dal momento che i dati per gli SPR1TE 
costituenti la forma delle mani vengono 
memorizzati nella parte bassa dell'area 
BASIC, il programma non funzionerà, 
se non caricato attraverso l'apposito 
programmino caricatore. Le prime li- 
nee del programma principale hanno 
appunto la funzione di “accorgersi" se 
il caricamento è avvenuto correttamen- 
te. e in caso contrario di visualizzare un 
messaggio e fermare l'esecuzione del 
programmma stesso. 


Programma caricatore 


350 

REM IN I Z . SID 

: rem 

196 



351 

REM" I< 9 U>] 

: rem 

23 

4 POKE53280 , 4 : POKE53281 .0 ! rem 

141 

352 

SID=54272: RESTO RE 

: rem 

25 

5 POKE1 98, 5:POKE631 , 1 9:POKE632 , 1 3:POKE633 

353 

FORX=QT02 

: rem 

28 

,141 : POKE6 34 ,1 31 :POKE63 5,l 3 srem 

135 

354 

READ AT ( X ) , D E ( X ) , SU f X J , RE ( X ) ; r etn 

61 

10 PRI NT" (CLR}POKE44 , 1 2 : POKE3 0 7 2.0 ; CLR" 

3 5 5 

READ PW(X) ,WV£X) 

: rem 

7 39 

: rem 

7 51 

3 56 

AD £ X ) = AT ( X ) *1 6+DB£X) 

: rem 

53 

20 PRI NT" ( 8 Gl IT ) ATTENDERE MENTRE CARICO 

357 

SR {XI =SU (X) *1 6+RE(X) 

; rem 

119 

IL PROGRAMMA.,." : rem 

752 

358 

NEXT X : RE = 0 

: rem 

1 17 



359 

DATA 00,00,15,11 ,1000,1 7 

: rem 

72 



360 

DATA 00,00, 1 5,1 1 ,1000,17 

: rem 

64 



361 

DATA 00,00, 1 5,1 ! ,1000, 17 

: rem 

65 

Piano per C64 


362 

FORX=0TO2: Y=7*X: IF RE<RE ( X } THENRE= 

S RE ( 




X) 

; rem 

196 

8 I FPEEK ( 4 4 ) = 1 2THEN1 0 : rem 

213 

363 

POKES ID+5+Y , AD (X) 

: rem 

233 

9 PR I NT " QUESTO PROGRAMMA DEVE ESSERE 

CARI 

364 

POKESlD+6+Y,SR(X) 

: rem 

11 

C ATO { 3 SPASI ] DAL SUO CARICATORE MI 

; " :EN 

365 

POKES I D + 2 + Y f PW ( X ) / 2 5 6 

: rem 

21 4 

D ; rem 

219 

366 

POKESID+3+Y,PW(X) AND255 

: rem 

723 

1 0 PRI NT" £ C LR } 11 : POKE 532 81 , ì 5 : POKE5328G , 1 2 

367 

POKES I P + 4+Y f B : REM RESET 

OSCILLATORE 

: PRI NT" ( BLK 1 " :rem 

88 



: rem 

216 

20 DIMN ( 255) , P { 255) treni 

224 

368 

POKES I D + 4 + Y , WV { X ) -1 : REM 

NULLO 


30 GOSUBl 0000: REM* INIZIAL1ZZA ;rem 

106 



: rem 

27 

40 GOSUBl 900 : REM* TITOLO INIZIALE 


369 

NEXT X : GOSUB6Q200 

: rem 

235 

t rem 

38 

370 

K$ = " AWSED FTGYHUJKOLP : ; ** 

T " +CHR$ (1 3 } +" 

50 GOSUBl 000: REM* TASTIERA PIANO 



0 " : REM 0 = PAUSA 

: rem 

20 

: rem 

194 

371 

LK = LENIKS) : KK-2 T ( 1 /I 2 ) 

; rem 

791 

60 IFNO=OTHENGOSUB500QO:REM* MUSICA 


372 

FI =523. 251 1 32: REM PRIMA 

NOTA : rem 

75 

i rem 

773 

373 

DIM FR t LK ) ,K £255) 

: rem 

91 

70 GOTO 2800: REM* MENU 11 ; rem 

59 

374 

FORI = 1 TOLK- 1 

: rem 

212 

80 GOSUBl 100: REM* LETTERE TASTIERA 


375 

K = ASC £ MID5 { K$ , 1 , 1 ) ) : K ( K ) 

= I : t em 

1 34 

: rem 

100 

376 

FR (I) ”5 ♦ 8*F1 +30 

; rem 

217 

90 GOSUB2 500 : REM* ISTRUZIONI :tem 

24 

378 

Fi -Fi *KK:NEXT I 

: rem 

79 

115 GOSUB2 2 00 : REM* INSERZIONE NOTE 


379 

FQRX*» OT02 i Y = 7*X : PA {X ) =SID+1 +Y : PB (X) =S 

: rem 

95 


ID+Y : NEXT 

i rem 

173 

120 GOSUBl 4 00 :RBM* INPUT NOTE :rem 

230 

380 

K ( I ) = 0 : FR ( I ) =0 : REM PAUSA 

=NOTA '0' 


130 GOSUB2 000 : REM* CANCELLA LETTERE 




: rem 

75 

: rem 

102 

381 

RETURN 

: rem 

124 

140 GOSUBl 200: REM* SUONA BRANO : rem 

24 

500 

REM **************** 

: rem 

25 

1 50 GOSUB50G: REM* MENU #2 :rem 

125 

501 

REM* MENU #2 * 

: rem 

88 

160 GGT02800 srem 

1 54 

502 

REM**************** 

: rem 

27 

200 REM IN 12. TUTTE LE VOCI :rem 

54 

505 

PRINT" (HOME) ( 14 GIU 1 } M SPC ( Si ) " 


201 REM" [< 16 U>) : rem 

25 


{ 6 SPAZI) PREMI {RVS} RETURN {OFF) PER 

205 POKES ID+24 f 1 5 : IFN >LKTHENRETURN 



RICOMINCIARE {GIU* }" 

: rem 

21 7 

: rem 

196 

506 

PRI NTSPC (Si) 11 { RVS } 1 {OFF 1 

-SUONARE 


210 POKEPAtVC) T FR { N) /2 56 : FGKEPB(VC) f FR (N) 


( 12 SPAZI } 1 RVS J 2 (OFF ) - AGG * NOTE 


AND255 ;rem 

35 


[ 2 SPAZI}" 

: rem 

1 24 

220 POKESID+4+7*VCrWV[VC) : PV^VC : VC=VC+1 tl 

507 

PRINTSPC (SI ) w {GlU r ) { RVS ) 3 £ OFF } -CORREG 

FVO3THENVC = 0 ; rem 

1 72 


GERE { 2 SPAZI )NOTE{ 3 SPAZI ) { RVS } 4 


225 RETURN :rem 

121 


{OFF } -SAVE SU DISCO" 

: rem 

166 


SUPERCOMMODORE^e/SS. 75 



508 PRIMTSPC (Si)" {GIU ' ] { RVS ) 5 {OFF} -SAVE S 

U NASTRO t 5 SPAZI ì (RVS) 6 (OFF) -CAMBIA 
INTROD" : rem 98 

509 PRINTSPCfSl} "{GIU 1 ] { RVS } 7 { OFF ] -CAMBI A 

VOCE { 8 SPAZI j { RVS } 8 { OFF } -OPZIONE DI 
SP." ;rem 152 

51 0 PRINTSPC {Si ) 11 { 2 SPAZI) [< 13 U>]{RVS} 
SCEGLI ì (OFF} [< 13 U>] { HOME } 11 : GOSUB6 


595 

600 


605 


610 


620 


{ 8 DES } " 

1 025 PRINT" { HOME } (GIU 1 } " : 

P25 ;NEXT 

ì 0 30 PRINT" (HOME) (GIU’ } ,r : 

1 S ; : NEXT 

1035 PRINT" {HOME} (GIU 1 3 11 : 

33; 

1040 GOSUB2GO:N=N*5:FORPP= 1701 00; NEXT 


:rem 247 
FORI = 1 TOl 2 i PRINT 
: rem 12 9 
FORI - 1 T05 : FRI NT P 
: rem 137 
POR 1=1 T05 : PR I NTP 
: rem 2 3 



0200 

; rem 

19 




: rem 

38 

512 

GETAS 1 1 FA$ O 11 " THEN5 1 2 

: rem 

144 

1045 

NEXT 


: rem 

9 

513 

GETAS 1 I FA$ = " "THEN5 1 3 

: rem 

85 

1050 

PRINT" {HOME} (GIU 1 } {OFF} {BLK} 


514 

GOSUB 300 0 i I FA3 =CHR$ { 1 3 } THENGOTQ2800 


[< 40 @>1 " 


: r em 

125 



: rem 

48 

1055 

PRINT" (HOME}* 13 GIU 1 )"; 


; rem 

199 

515 

IFVAUAS) = 0THENS05 

: rem 

249 

1060 

PRINT" (BLK) (< 40 T>1 " 


; rem 

160 

516 

ONVAL [A3 ) GOSUB 1 200,2900 

,5000,2600, 

160 

1070 

GOSOB1 300: RETURN 


: rem 

38 


0,520,30000,31000 

: rem 

230 

1100 

REM*** * ****************** 


: rem 

66 

517 

GOTO 50 5 

: rem 

112 

1 101 

; 


: rem 

253 

520 

PRINT" (CLR}[ 2 GIU ' } ATTENDI MENTRE 

: SA 

1102 

REM** LETT. TASTIERA ** 


: rem 

20 


LVO LE NOTE ..." 

: rem 

199 

ì 103 

: 


: r em 

255 

530 

SV=6*4096- 2 ; 1 = 0 

: rem 

0 

1104 

REM******* *************** 


: rem 

70 

540 

1 = 1 + 1 ; POKESV+ 2* I , N(I ) ; FOKESV+2 * I + I 

,P< 

1105 

PRINT" { HOME} 41 SPCtSlJ " ( 3 

SPAZI ) (RVS} 


I) SPRINT" {HOME} NOTA* 3 

SPAZI) 



W (OFF } [ < G > 1 (RVS }E (OFF) ( 

5 

SP AZ I } 



{ 3 SI N } " I 

:rem 

126 


(RVS)T(OFF}{ 2 SPAZI )( RVS} Y (OFF} 


550 

IFKMTHEN540 

: rem 

195 


{ 2 SPAZI} [ RVS ) U (OFF ) { 5 

SPAZI) { RVS) 

55 5 

FORJ= 1 TO20 i POKES V+ 2*1 + J 

, 0 : NEXT 



O {OFF } { 2 SPAZI HrVS) P {OFF} 





s rem 

111 


{ 5 SPAZI } l RVS ) * (OFF) ( 2 

SPAZI } (RVS) 

560 

PRINT" {CLR}( 6 GIU 1 5 (WHT)STO CAMBIANO 


1" 


: r em 

70 


630 

632 

635 

64 0 

650 

660 

665 

1000 
1001 
10 02 

1003 

1004 
1 005 
1 006 


0 I DAT1|BLU)" : rem 104 

POKE5 328 1 f 6 :rem 55 

PRINT" (HOME) { 3 GIU* J5000 9 DATA 11 M : PO KE 
1 98,3:POKE631 ,1 3 : PQKE6 3 2 , 1 3 : POKE6 3 3 , 1 
3 : rem 56 

PRINT" K = 5 0 Q 1 0 : M = ”M " : I = - 1 9 : SV= 6 * 4 0 96 - 1 
" :rem 71 

PRINT" { 2 GIU 1 } GOT06 2 0 ( HOME ) 11 ; END 

:rem 127 

1 = 1+20: 85*"" : I FI > 2*MTHENPRI NT" (CLR) 

f BLK } " : POKE5 32B 1 , 1 5 ; L I ST50 30 0 - 50 3 0 5 

: rem 216 

PR1NT" {CLRH 3 GIU * ) " ? : POKEl 98,3: POKE 
6 31 ,1 3 : PO KE 6 3 2 , 1 3 : POKE 633, 1 3: rem 145 
PR I NT' 1 { WHT ] " K 11 1 BLU } D AT A" ; :rem 1 1 6 
FORJ=OTQ9 : S=P£EK (SV+I +2* J ) : P=PEEK (SV+ 
I + 2*J + 1 } : rem 205 

AS=MID$ (STR$ tS) ,2) :B$=MIDS (STRS (P) ,2) 


S$=S$+A$+" ,"+8S+" , " : NEXT 
PRINTS5+" {SIN} " : K = K + Ì : PRI NT" K 
"M" ; I = " I" : SV="SV 
PRINT" { 2 GIU 1 }G0TO620{HC 


REM* 


************ * * < 


REM * * CREA LA TASTIERA** 


E************** 


: rem 

242 

: rem 

150 

'" K = " K ' 

' :M = 

: rem 

1 62 

" : END 


: rem 

137 

; rem 

23 

; rem 

252 

: rem 

84 

: rem 

2 54 

: rem 

27 

: rem 

1 30 


Ìlio 

1115 


103 


1 1 20 
1200 
1201 
1202 
1203 
1 204 

1205 

1206 

1209 

1210 


PRINT" { 13 GIU f 1"SPC(S1 ) ; : rem 

PRINT" { 2 SPAZI HRVS}A(OFF) 

{ 2 SPAZI H RVS )S {OFF H 2 SPAZI) 

D (OFF J [ 2 SPAZI} {RVS]F{OFF} 

( 2 SPAZI }( RVS }G {OFF 1 [ 2 SPAZI} 

H {OFF } { 2 SPAZI HRVSÌJ {OFF) 

{ 2 SP AZIHRVSjK{OFFM 2 SPAZI} 
L{0FFH 2 SPAZI } {RVS] : (OFF) 

{ 2 SPAZI ! (RVS); (OFF) [ 2 SPAZI) {RVS] 
= {OFF} (RVS)RTN" 

RETURN 

REM* *************** 


■ ( RVS } 
{RVS} 
(RVS) 


REM* 


SUONA 


REM*** * •*•»******“ 

FORESI D+24 , 1 5 : ZZ=64 
FORQ- 1 TOM : N - N ( Q ) :P=P(OJ 
AA=TI :3P-0: XFN>=23THEN1 230 
SP-SF { N ) :H=H(N) 


: rem 

143 

; r em 

164 

: rem 

71 

: rem 

254 

: rem 

21 5 

: rem 

0 

: rem 

75 

: rem 

143 

■rem 

20 5 

: rem 

94 

: rem 

140 


REM* ****** 

N = 1 

pi $ ac 11 (OFF I (BLK) |<M> | " : P2S-P1 $ : P3$ “Pi 
$ :rem 59 

1 007 Kl $ - " { RVS } ( BLK } (WHT) {BLK} " : FORICI 
TOl 2: PI $-Pl S+Kl Si NEXT :rem 3 

1008 P 1 $ = P 1 $+"{ RVS } { BLK } (WHT) { BLK ) 

(OFF} " : rem 136 

1010 K2$=" (RVSJ (WHT) { 2 SPAZI ) { OFF ì ( BLK } 

( < N > } " : FORI = 1 TO 1 3 : P2$ = P2$^K2S : NEXT : L 
=LEN(P2S) :P2S = LEFTS (P2S ,L^1 I 

i r em 128 

1020 P3$-P3S+ M {RVS} {WHT} { 2 SPAZI} 

{ 6 DESÌ (OFF} {BLK} (<M>J {RVS} {WHT} 

[ 10 DESI {OFF HBLK} RVS H WHT} 

[ 7 DES) lOFF} (BLK) [ <M> J( RVS }{ WHT ì 



76 SUPEftCQtfMGIXfflt* S/&5 


1 230 

print" {home} { 4 spazi H 

4 SIN} N Q 


1603 

; 

: rem 

4 



; rem 

ìli 

1604 

REM** * ********************** 


1240 

GOSUB200 ; POKEV3 , 0 

i rem 

39 



; rem 

201 

1245 

IFSPOOTHENÌ 270 

: rem 

161 

1 612 

GOSUB3000 

: rem 

1 3 

1250 

I FTI < AA+PTHENl 2 50 

: rem 

36 

1 620 

PRINTSD$ , MGIU i }NOME DEL 

FILE 


1255 

GOTG1296 

:rem 

21 6 


1 3 SPAZI}"; 

: rem 

197 

1259 


: rem 

1 1 

1625 

INPUTNMS 

; rem 

29 

1260 

REM* SUONO ASSOCIATO AI 

TASTI * 


1 650 

OPENl ,1 ,1 ,NMS 

: rem 

21 2 



: rem 

74 

1 655 

PRINT# 1 ,M; PRINT# 1 ,2$ 

: rem 

240 

1270 

X-SP>255: Y-SP>ZZ:POK£V0, 

-4*X:SP=SP+2 

1 660 

FORI - 1 TOM 

: rem 

91 


55*X:SS-SP+ZZ* fSP>ZZ) 

: rem 

244 

1 665 

PRINT# 1 ,N(I) 

: rem 

1 99 

1 275 

FOKEVì , SP : POKEV2 f H : P0KEV4 , SS : POKEV5 , 

1 666 

PRINT# 1 ,P(I) 

: rem 

202 


H : POKEV3 , 4- 8*Y 

; rem 

32 

1670 

NEXT: CLOSEl 

: rem 

238 

1 280 

IFTKAA+P THENl 280 

: rem 

42 

1 675 

GOSUB3000 

: rem 

22 

1 285 

GOSUB6Q1 00 

: rem 

71 

1685 

RETURN 

: rem 

180 

1296 

NEXT: FOR P P= 1 TOl 000 ; NEXT : 

POKEV3 , 0 


1700 

REM************************* 




: rem 

107 



: rem 

1 98 

1 297 

GOSUB60200: RETURN 

; rem 

101 

1701 


:rem 

3 

1 300 

REM ***************** 

: rem 

1 1 4 

7702 

REM** CARICA DA NASTRO 

* * 


1 301 

; 

; rem 

255 



: rem 

85 

1302 

REM* * SUONO PIANO ** 

: rem 

93 

7 703 


:rem 

5 

1 303 

; 

: rem 

1 

1 704 

REM** *********************** 


1 304 

REM ***************** 

: rem 

1 1 8 



: rem 

202 

1 305 

POKES IO # 0 : RETURN : PRINT0* 

I : POKESID+24 

1 705 

PRINTSD3 

: rem 

21 



: rem 

12 

1715 

INPUT "NOME DEL FILE : { 3 

f SPAZ I } V 


ì 31 0 

FORPP = 1 T0 1 0 : R = RND ( 1 ) :N=23*R+1 :GOSUB2 


{ 3 SIN}"; NMS 

: rem 

167 


00 

: rem 

59 

17 20 

IFNM$= " V" THENl 705 

: rem 

107 

1 31 5 

POKEV1 , 2 55*R : POKEV2 , 1 00+30*R: POKEV3, 

1 725 

GOSUB2000 

: rem 

1 7 


4 : FORQQ= 1 TOl 0 : NEXT: NEXT: 

POKEV3 f 0 


1730 

GOSUB601 00 

:rem 

66 



: rem 

67 

1 740 

OPENl , 1 ,0,NM$ 

: rem 

21 1 

1 320 

GOSUB601 00 : FORPP=OTOSOO : 

NEXT 


1 745 

INPUT# 1 ,M: INPUT# 1 ,2$ 

: rem 

246 



: rem 

28 

1 760 

FORI =1 TOM 

: rem 

92 

1325 

GOSUB60 2 00 : RETURN 

: rem 

93 

7 76 5 

INPUT# 1 ,N{I} 

: rem 

20 3 

1400 

REM ***************** 

: rem 

1 1 5 

1 766 

INPUT#! f P(I] 

: rem 

206 

1401 

: 

; rem 

0 

1 775 

NEXT 

: rem 

1 9 

1402 

REM** INPUT NOTE ** 

: rem 

25 

1780 

CLOSEl 

: rem 

119 

1403 

: 

t rem 

2 

1782 

GOSUB3000 ; PRI NTSD$+ " { RVS 1 " +NMS 


1404 

REM ***************** 

: rem 

119 



: rem 

2 

1405 

M=0 : N”0 : GGTOl 460 

: rem 

183 

7 785 

GOSUBl 200 

: rem 

24 

1410 

M=M+1 ;K$=MID$ (STR$ (M) , 2 ) 

: PRINT" 


1 79 5 

RETURN 

: rem 

182 


{ HOME} { 3 SPAZIH 3 SIN } 

"M3 : rem 

1 75 

1 800 

REM **************************** 


141 1 

GETN$ : I FN$ = M " THENGOSUB6 0 1 0 0 : GOT0 1411 



:rem 

69 



; rem 

181 

1 807 


: rem 

4 

1412 

NN- ASC (N5+ZS1 : AA-TI 

: rem 

122 

1 802 

REM* * INPUT NOTA CORRETTA ** 


1415 

IFNN-NGTHENM=M-1 : GOSUB3 000 : RETURN 



: rem 

125 



: rem 

172 

7 803 


: rem 

6 

1420 

IFNN-Nì THENH=M- 1 i GOTO! 41 1 :rem 

76 

1 804 

REM **************************** 


1421 

M$=MID$ {STR$ (M) ,2) 

: rem 

222 



: rem 

73 





1 805 

GETN3 

: rem 

32 

1 422 

PRINT" {HOME} { 3 SPAZI }{ 

3 SIN} "M$ ■ 

1810 

AA=TI : GETN3 : SN=PEEK (KB) : 

I FNS - " "THENl 



: rem 

245 


810 

: rem 

1 30 

1 42 5 

N”K (NN ) 

: rem 

143 

1815 

NN = ASC 1NS) : N = K { NN ) 

: rem 

63 

1430 

GOSUB2QQ ; SP-SP ( N) :H=H(N) 

: rem 

22 0 

18 20 

GOSUB2G0 

: rem 

221 

1435 

IFSP=0THEN1 445 

: rem 

105 

1830 

REM* ATTENDE LA MODIFICA 

* : rem 

210 

1438 

X=SP>255: POKEVO , - 4*X : SP= 

SP+25 5*X 


1835 

I FPEEK (KB) =SNTHENl 835 

: rem 

65 



: rem 

230 

1 840 

P-INTi (TI-AAJ/2+1) 

: rem 

240 

1440 

POKEVl r SP ; POKEV2 , H : POKEV3 , 4 ; rem 

5 

1 845 

GOSUB6G200: RETURN 

: rem 

1 00 

1445 

I FPEEK ( KB ) < > 64 THENl 4 4 5 ; REM ATTENDE 

1 900 

REM** * * * * ***** 

: rem 

124 



: rem 

100 

1 901 


; rem 

5 

1446 

P=TI-AA 

: rem 

168 

1 902 

REM* * TITOLO** 

: rem 

51 

1450 

GOSUB601 00 

: rem 

65 

7 903 


: rem 

7 

1456 

PQKEV3,0 

: rem 

228 

1 904 

REM *********** 

: rem 

128 

14 57 

GETA$: lFA$O iMt THENl 4 57 

: rem 

2 

1 905 

FRINTSDS'MBLK}" 

: rem 

235 

1 460 

N (M) =N:P(M) -P: IFM> 4 99THENGOSUB300 0 ;R 

1 91 0 

PRINTSPC ( 1 2) " { RVS } { 2 SPAZI} (<*>} 



ETURN 

: rem 

125 


{OFF} { RVS } {OFF} {RVSÌ { 

3 SPAZI} 


1 465 

GOT0141 0 

: rem 

207 


{OFF} {RVS} {OFF} {RVS} 

{OFF} {RVS} 

1 600 

REM* ************************ 



{ 3 SPAZI } {OFF}" 

; rem 

237 



: r em 

1 97 

1915 

PRINTSPC (1 2) "{RVS} {OFF} 

{RVS} {OFF} 

1 601 


: rem 

2 


{RVS} {OFF} {RVS} {OFF} 

{RVS} {OFF} 

1 602 

REM** SALVA SU NASTRO 

* * 



{RVS} {OFF} {RVS} {OFF} 

{RVS} (OFF} 



; rem 

75 


{RVS} {OFF}" 

: rem 

255 
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1920 PRINTSPC (1 2) " {RVS} {OFF} {RVS) (OFF} 
{RVS} {OFF} {RVS}{ 3 SPAZI } (OFF } 

£ RVS } £<*>] {OFF} { RVS } {OFF} {RVS} 

{OFF} " :rem 146 

1 925 PRINTSPC (1 2 J '* {RVS} { 2 SPAZI} {OFF} 

£ {RVS} {OFF} {RVS} {OFF} {RVS} 
lOFF} {RVS} {OFF} {<*>] (RVS) {OFF} 
{RVS} {OFF} {RVS} {OFF}" :rem 228 

1930 PRINTSPC (12) " {RVS} {OFF}{ 3 SPAZI } 
{RVS} {OFF} {RVS} {OFF] {RVS} {OFF] 

{RVS} {OFF} ÌRVSj {OFF] {RVS} 

{ 3 SPAZI}" : rem 34 

1 940 FQRP? = QTOl 9 ; FOKE 1 98 4 + PP , 1 0 2 : FOKE2 0 2 3 
- PP , 1 0 2 : NEXT : rem 20 5 

1 950 FORPP- QTO 1 9 : PQKE56 2 5 6 + PP , 6 : POKE562 9 5 
- PP , 6 ; NEXT : rem 138 

1 96 0 FGRPP=OTOl 9 : POKEl 024 + PP, 1 02 : POKE1 063 
- PP , 1 0 2 : NEXT : rem 195 

1 97 0 FORPP= 0TO7 9 : POKE55 2 96 + PP , 6 : POKE55335 



- PP , 6 : NEXT 

; rem 

137 

1 990 

return 

: rem 

1 79 

2000 

REM* ***************** 

; rem 

154 

2001 


: rem 

253 

2002 

REM** CANCELLA * 

: rem 

89 

2003 


: rem 

255 

2004 

REM* * **************** 

: rem 

158 

2010 

FORPP = 0TO3 9 ; POKECRT+PP , 

32 :NEXT 




: rem 

237 

2020 

FORPP-OTG39: POKECRT+ì 4* 

WD+PP, 32:NEXT 



: rem 

67 

2030 

RETURN 

: rem 

165 

2100 

REM ******************** 

* ** * : rem 

151 

210! 


: rem 

254 

2102 

REM** TASTI ERA/NO SUONO ** : rem 

1 4 

2103 


: rem 

0 

2104 

REM********** ********** 

* * * * : r em 

155 

2706 

POR J = 7 T06 : PR I NT" { HOME } 11 

: FORK - 1 TOJ 

f : PR 


I NT" {GIU 1 } H ; : NEXT: PRINTSPC (SI ) ; 




j rem 

ì 79 

2110 

FOR 1 = 1 T0 1 3 : P R I NT 11 {RVS} 

[off} 

NEX 


T : NEXT 

: rem 

69 

211 5 

FQRJ-ÌTQ6 : PRINT" [HOME} { 

5 GIU'}": 

FOR 


K= ! TOJ : FRI NT" { GIU 1 }"; : NEXT : PRINTSPC { 


si) ; 

: rem 

8 

21 20 

FORI = ITO 1 3: PRINT" {RVS} [<G>J [<M>] 

* * 


NEXT: NEXT 

: rem 

0 

2125 

FORJ = 1 T06 : PR I NT" { HOME } " 

: FORK= 1 TOJ 

: PR 


INT" {GIU 1 J 11 ; ; NEXT 

: rem 

247 

21 30 

PRINTSPC {Si } " {RVS} [ <G> J 

"SPC (6) ,É 



{RVS} { <M> ] [<G>] ”S PC (10) 

" {RVS} [ <M> ] 


[<G>] "SPC(71 ''{RVS} [ <M> ] [ <G > ] " : NEXT 



t rem 

21 9 

2135 

PRINT" {HOMR} [GIU ' )"SPC { 

si ) " 



[< 39 0>1" 

: rem 

1 87 

2140 

PRINT" {HOME} { 13 GIU 1 } "SPC (Si); 




: rem 

126 

214 5 

PRINT" {< 39 ¥>]" 

; rem 

726 

2150 

RETURN 

: rem 

168 

2200 

REM**** ** * ********** 

: rem 

ÌU 

2201 


: rem 

255 

2202 

REM* I NSERI M - NOTE * 

; rem 

121 

2203 


: rem 

7 

2204 

REM* * * ************** 

: rem 

1 1 8 

2205 

PRINT" {HOME} { 16 GIU'}" 

:CS*" (OFF! " 



; rem 

113 

2210 

GOSUB60 7 00 :FORL = 1 TOT 0 

: rem 

27 

2215 

PRINTSPC (Si )C$ "SUONAI I { 

7 SPAZI}" 




; rem 

133 

2216 

PRINT" [SU}"; 

2 rem 

104 

2220 

I FC $ - " {OFF } " THENCS - " [ RVS } 11 : G0T022 30 




: rem 

50 

2225 

CS = 11 {OFF } " 

: rem 

6 9 

2230 

FORK = 1 TOT 00: NEXT: NEXT 

: rem 

! 4 1 

2235 

PRINT: RETURN 

:rem 

11 5 

2500 

REM* * * * * * ************ 

: rem 

159 

2501 


: rem 

2 

2502 

REM** ISTRUZIONI ** 

: rem 

117 

2503 

: 

: rem 

4 

2504 

REM ****************** 

: rem 

163 

2506 

PRINT" {HOME} { 16 GIU'}" 

: rem 

1 92 

251 0 

PRINTSPC (SI ) M {RVS} { 15 SPAZI } TERMINA 


CON { 2 SPAZI }UN "CHR$ ( 34 I 

n ♦ "CHRS ( 3 4 


)"( 3 SPAZI}" 

;rem 

33 

251 5 

PRINTSPC (Si ) " fGllPj {RVS} INSERISCI U 


NO "CHR$ {34) "Q"CHR$ (34) " PER UNA 

PAU 


SA{ 6 SPAZI} " 

: rem 

134 

2520 

PRINTSPC [SI ) "{GIU M {RVS} DOPO UNA NO 


TA ERRATA BATTI "CHR$(34) n 

( 34 } 


" ( 6 SPAZI }" 

;rem 

26 

2525 

RETURN 

:rem 

1 74 

2600 

REM *********************** 

* * 




: rem 

198 

2601 


: rem 

3 

2602 

REM** SALVA SU DISCO 

* Ut 




: rem 

231 

2603 

J 

: rem 

5 

2604 

REM * ********************** 

-ir * 




: rem 

202 

261 2 

GOSUB3000 :NW=WV { 0 ) 

: rem 

88 

2620 

PR I NTSD$ " {GIU* } NOME DEL FILE 



( 3 SPAZI}"; 

: rem 

1 98 

2625 

INPUTNMS : IFLEFTS (NMS, 1 } <>" 

" THENNMS “ 


” N +NM$ 

: rem 

1 86 

2626 

GOSUB30 00 

: rem 

19 

2635 

DRS - 11 0 " :D0S = DRS 

: rem 

4 

26 3 6 

GOSUB30 0 0 

: rem 

20 

2637 

PRINTSDS" {GIU 1 ì SOSTITUISCO 

FILE 

ESXS 


TENTE"; : INPUT" { 3 SPAZI }N{ 

3 S I M } " ; A 


$ 

: rem 

1 86 

2638 

IFLEFTS (AS , 1 > *”S"THEND0S - " 

£"+DR$ 




: rem 

5 

2640 

OPEN 1 5 , 8 , 1 5 ; R$ =CHR$ £ 1 3 ) 

: rem 

253 

2650 

QPEN2, 8,2 # D0$ + " ì "+NM$+" ,S, 

W" 




: rem 

1 87 

2651 

GOSUB4 0 00 0 : I FEO < >GTHEN2 6 70 

: rem 

40 

2655 

PRINT# 2 , M; R$ ; NW; RS 

: rem 

1 1 1 

2660 

FORI = 1 TOM 

: rem 

92 

2665 

FRI NT* 2 , N ( I } ;RS; P( I) ;R$:NEXT 




: rem 

201 

2670 

CLOSE2 :CLOSEl 5 

: rem 

141 

2675 

GOSUB3000: RETURN 

: rem 

49 

2700 

REM ************************* 




: rem 

1 99 

2701 


: rem 

4 

2702 

REM** CARICA DA DISCO 

* * 




: rem 

241 

2703 


: rem 

6 

2704 

REM *********************** 

* * 




: rem 

203 

2705 

GOSUB6 3900 :GOSUB3 000 

: rem 

205 

2710 

PRINTSDS; 

: rem 

77 

2715 

INPUT" NOME DEL FILE :{ 3 SPAZI }V 



{ 3 SIN}"; NMS : I FNM$ = " V" THBN2 7 1 0^ 




: rem 

128 


2720 IFLEFTS (NMS , 1 > <>" "THENNMS^ " "+NMS 

:rem 45 

2730 GOSUB 300 0 : OPEN 1 5 , 8 , 1 5 : PRINTSDS ; 

: rem 14 8 

2740 QPEN2 ,8,2, DR$ + " : "+NM5+" ,S,R rt 

: rem 2 ! 6 

2 74 5 GOSUB4 0 00 0 MFEO<>OTHENCLOSE2:CLOSEl 5 


78 . SìUFEKCQMMOdORE® S/&5 




: RETURN 

: rem 

53 



: rem 

29 

27 30 

INFUT#2 , M , NW 

; rem 

253 

5028 

PRINTSPC (SI ) " {GIU 1 } VEL * VISUALI ZZAZ . ( 

2760 

FORI = 1 TOM 

: rem 

93 


1-10:1 = VELOCE) : INPUT" { 

3 spazi] 

2763 

INPUT# 2 ,A$,B$ 

: rem 

220 


l< + >] { 3 SIN}"; PY 

: rem 

59 

2770 

N ( I ) = VAL ( A$ ) I F ( I) = VAL [ B$ ) : 

NEXT 


5030 

FQRQ=P£TOM: N=N (Q) :P=P(Q) 

: rem 

69 



; rem 

2 

50 31 

AA=TI :SP=0: 1 FN> = 23THEN50 3 3 ; rem 

96 

2775 

C LOS E 2 : CLOSEÌ 5:GOSUB300 50 

: rem 

69 

5032 

SP-SP (N ) : H=H ( N ) 

: rem 

146 

2776 

GOSUB3000; PRINTSD$+" { 3 GIU 1 ) 


5033 

PRINT" {HOME } { 4 5PAZI}{ 4 

SIN) ,f Q 



{ 3 DES}{RVS}” + NM,$ 

: rem 

1 44 



: rem 

116 

2790 

G0SU81 20 0;GOSUB30GQ: RETURN 

: rem 

1 72 

5034 

GOSUB200 

: rem 

222 

2000 

REM *************** 

; rem 

36 

5035 

I FSP< > 0THEN5O3 8 

: rem 

1 68 

2801 

REM* MENU #1 * 

; rem 

140 

5036 

I FTI < AA+PTHENSO 36 

: rem 

48 

2802 

REM *************** 

: r em 

38 

5037 

GGTO5044 

: rem 

21 3 

2804 

GOSUB 300 0 : GOSUB2G 00 : GOSUB60 2 00 


5038 

X = SP>255: PO K EVO , - 4 *X : SP^SP+2 5 5* X 




; rem 

63 



: rem 

230 

2805 

PRINTSDS " f RVS ) 1 { OFF } : CARICA DA DISCO 

5039 

PQKEV1 , SP : PQKEV2 , H : FOKEV3 

, 4 : r em 

73 


ii 

: rem 

4 

5040 

IFTKAA+P THEN5040 

; rem 

38 

2810 

PRINTSPC [SI ) " {GIU* } 1 RVS } 2 { OFF } :C AR IC 

50 41 

GOSUB601 00 

: rem 

65 


A DA NASTRO " 

: rem 

119 

5042 

PQKEV3 , 0 

: rem 

223 

281 3 

PRINTSPC { Si 1 " (GIU T } { RVS } 3 {OFF ì :COMPO 

5044 

FORK = 1 TOT 0 *PY 

: rem 

68 


NT MUSICA” 

: rem 

85 

50 4 5 

GETN$ : BN-ASC (NS+2$ ) 

: rem 

106 

281 6 

PRINTSPC f SI ) 11 fGIU 1 } {RVS } 4 {OFF} : FINE 

5050 

IFBN=N2THENE=100;SQ=Q:Q=M 

: rem 

11 1 


[GIU* } M 

; rem 

179 

50 55 

NEXT: NEXT 

: rem 

1 35 

2820 

FQR 1 = 1 TO 3 

: rem 

64 

5060 

GOSUB3000 

: rem 

14 

2 8 2 5 

FRI NT” f SU H 39 SPAZI 1 11 : FQRPP= 1 TO 1 00 : 

506 5 

GOSUB 1 1 00 

: rem 

1 8 


NEXT 

: rem 

1 5 

5070 

PRINTSDS" {GIU 1 } INSERISCI 

NOTA CORRE 





TTA #"SQ 

: rem 

1 1 1 

2830 

PRINT" { SU } { 2 SPAZI] L< 13 

U > ) { RVS } S 

5075 

GOSUB 1 800 

: rem 

26 


CEGLI ! {OFF ) L< 12 U > ] 11 : FORPP= 1 T0 10 0: 

5080 

N [SQl =N: : P(SQ) =P:G0SUR3QOO : rem 

94 


NEXT 

: rem 

127 

5085 

GOSUB! 200 

: rem 

21 

2835 

NEXT 

: rem 

1 7 

5090 

GOSUB601 00 : GOSUB20 00 : RETURN: rem 

21 9 

2840 

GQSUB602Q0 

: rem 

70 

1 0000 

REM ************ ******* 

: rem 

243 

2845 

GETA$ : I F A6 = 11 " TH EN 2 84 5 

; rem 

201 

1 0001 


: rem 

44 

2850 

GOSUB3QOO 

: rem 

1 8 

1 0002 

REM* * INIZI AL IZZA ** 

: rem 

205 

2355 

IFVAL(AS) =0THEN2805 

: rem 

103 

1 0003 


: rem 

46 

2860 

ONVAL ( AS ) GOTO 2 86 5 , 2 8 7 0 , 80 

: rem 

165 

1 0004 

REM* ****************** 

; rem 

247 

2861 

PRINTSD$ : PQKÉS ID+24 , 0 ; END 

: rem 

96 

10010 

GOSUB 1 900: 2$=CHRS (0) 

: rem 

179 

2865 

GOSUB2700 : GOTOSOO 

: rem 

38 

1 0020 

GOSUB350:PS=ASC ("0") 

: rem 

7 93 

2870 

GOSUB 1 700; GOTOSOO 

: rem 

33 

1 0025 

KB= 20 3 

; rem 

87 

2900 

REM** ********* ** 

: rem 

20 9 

1 0030 

SDS = " t HOME } { 1 5 GIU' } h 

: rem 

66 

2901 


r rem 

6 

1 0040 

NO = ASC { ** - n ) :N7 =ASC : 

N2=ASC{"@ M ) 

2902 

REM* AGG . NOTE * 

: r em 

56 


: WD“40 :CRT- I 024 

: rem 

25 

2*9 0 3 

: 

ì rem 

8 

100 50 

VD = 5 3 24 8 

; rem 

21 1 

2904 

REM* * *********** 

: rem 

21 3 

1 0060 

V0 = VD* 1 6 : Vi = VD + 4 : V2 = VD + 5 

: V3=VD+21 

29 0 5 


: rem 

10 



: rem 

254 

2925 

GOSUB3 000 : GOSUB 1 1 00 

: rem 

145 

1 0065 

V4-VD+6:V5=VD+7 

: rem 

188 

2940 

GOSUB2 50 0 : GOSUB2 2 00 

: rem 

148 

1 9000 

D (0) -552 95+1 0 * WD : D [ 1 ) =552 95 + 5* WD 

2950 

GOSUB1 41 0 : GOSUB20 00 

; rem 

146 



: rem 

195 

2960 

GOSUB1 200: RETURN 

: rem 

46 

1 9010 

D3=CRT+ 1 4*WD : D4=D3+WD- 1 

: rem 

17 9 

3000 

REM ************** 

: rem 

243 

1 9060 

CR( 1 ) =1 ; CR ( 0 ) =0 

: rem 

66 

3001 


: rem 

254 

20000 

##**■*** *********************** 

3002 

REM**CANCELLA ** 

: rem 

1 32 



: rem 

7 52 

3003 


: rem 

0 

20001 

; 

: rem 

45 

3004 

REM** *********** * 

: rem 

247 

20002 

REM** NOTE DA TASTIERA 

* * 


3005 

PRI NT” { HOME ) { 15 GIU ' } " ? 

: rem 

230 



: rem 

152 

3010 

FORT ~ 1 T09 ; PRINTCLS : NEXT 

: rem 

60 





3020 

GOSUB2 00 0 : I FQW” 1 THENRETURN 

: rem 

245 

20003 


: rem 

47 

3040 

PRI NT” {HOME) " ; : RETURN 

; rem 

0 

20004 

REM**** ************************* 


5000 

REM********************** 

i rem 

69 



: rem 

156 

5001 

: 

: rem 

0 

20005 

DIMSP ( 255) ,H (255) 

: rem 

194 

5002 

REM * * C ANC , NOTE ERRATE * * 

: rem 

143 

1 20010 

FORI = 1 TOLK 

: rem 

203 

5003 


: rem 

2 

20020 

READSP ,H:SP(I}=8*SP:H(I) 

=130-30* 

H : N 

5004 

REM*** ****** ************* 

: rem 

73 


EXT: SP (0) =0 

: rem 

1 9 

5016 

GOSUB3GOG 

: rem 

15 

20030 

GOSUB6Q200 

: rem 

109 

5025 

PRINTSDS ” (GIU ’ } PREMI {RVS}8{OFF) 

QU 

20050 

DATA3 ,0,4,1 ,6,0,7,! ,9,0, 

12,0,13, 

1/7 


ANDO SUONO LA NOTA ERRATA * 

IV 



5,0,16,1 ,18,0,19,1 ,21 ,0 

: rem 

33 



: rem 

210 

20055 

DATA24 ,0, 25, 1 ,27,0,28,1, 

30,0,33, 

0,3 

5026 

PRINTSPC (Si )” {GIU f }CI SONO 

"H" NOTE, 


4,1 ,36,0,37,1 , 39,0,0,0 

: rem 

5 


VI 

: rem 

134 

20060 

PRINTSPC {! 1 ) "{GIU' } SUONO 

L' INTRODUZ 

5027 

PRINTSPC (Si ) ” {GIU ’ ] INIZIO 

CON NOTA * 


IONE?" 

: rem 

99 


” ? : INPUT" { 3 SPAZI } [< + >} { 

3 SIN)" 

;PZ ! 

20062 

CL$ = "{ 39 SPAZI} 11 

: rem 

46 


5UPERG0MM0D0RE® 8/S5 79 



BRS = " {RED}{RVS} { 40 SPASI} (OFF} 



{ BLK } 11 

: rem 

132 

20065 

GETA3 1 1 FAS = M "THEN2G065 

t rem 

29 

20066 

PRINT'MCLRJ" 

t rem 

98 

20067 

I FA$< > 11 S" THENNO” 1 

; rem 

62 

20070 

GOSUB320 0 0 

: rem 

170 

207 00 

RETURN 

t rem 

21 1 

30000 

REM CAMBIA VOCI 

t rem 

165 

30001 

REM” [< 7 3 U>] 

: rem 

82 

3001 0 

IFWV(O) =1 7THENNW=33 

: rem 

205 

30020 

IFWV(0) =33THENNW=65 

: rem 

209 

30030 

IFWV(O) =6 5THENNW = 1 7 

: rem 

212 

30040 

PRINTSD$" ( 12 SPAZI }{ RVS } F 

* ONDA 

t "N 


W:FORPP = 1 TOSO 0 t NEXT 

t rem 

176 

30050 

I FNW= 0THENNW= 1 7 

: rem 

78 

30060 

FORPP = QT02 ; WV ( PP ) ^NWtNEXT 

t rem 

245 

31000 

REM OPZIONE LIBERA 

: rem 

171 

31001 

REM”[< 14 U>J 

: rem 

11 

31010 

RETURN 

: rem 

27 3 

32000 

REM MANI 

: rem 

254 

32001 

REM" [< 5 U > } 

: rem 

148 

32002 

FOR PP - OTO 6 2 t RE ADX : P0KE2 0 4 8 +P P , X t 

NEX 


T 

: rem 

163 

32003 

FORPP=0TO62 : RE ADX : POKE21 1 2+PP,X: 

NEX 


T 

: rem 

7 56 


32004 POKE204 2 ,32: POKE204 3 , 3 3 t PQKEVD+ 2 1 ,0 

: rem 50 

32005 POKEVO + 41 ,09; PO KB VD+ 42,09: REM COLOR 

E trem 243 

32006 PO K EVO + 23,12: PO KE VD + 29,1 2 : REM ESP AN 

DE trem 41 

32007 POKEVO + 27,0: REM PRIORITÀ * : rem 100 

32009 RETURN :rera 222 

32010 DATAI ,128,0,2,64,0,3,193,128,3,194. 

64 : rem 98 

32015 DATA3.Ì 95,1 9 2,3,1 99,156,3,199,60,22 
« 7,207,7 23 : rem 223 

32020 DATA243, 222, 247,1 23,221 ,238,63,255, 
254 : r em 1 6 5 

32025 DATA31 ,255,248,1 5,255,240, 15,255,22 
4,7,255 : rem 113 

32030 DATA224, 7,255,224,7,255,224, 3,255,2 
2 4 : rem 1 1 5 

32035 DATAI .255,192,0,1 28,64,0,255,192 

: r em 125 

320 50 D AT A 0,1 ,128, 0,2, 64, 1,1 31, 1 92, 2, 67,1 

92 treni 93 

32055 DATA27, 227 , 1 92,61,227,192,222,243,1 
99,239 : rem 83 

32 0 60 DATAI 1 5 , 20 7 , 24 7 , 2 51 , 22 2 , 1 25 , 2 5 5 , 2 52 

trem 17 

32065 DATA6 3 ,2 55 ,2 48,37,255,248,15,255,24 
8, 7,255,248 : rem 80 

32070 DATA3.255, 248, 3 ,255,248,3,255,240,3 
,255 : rem 220 

32085 DATA224,Ì ,255,1 92,0,192,64,0,255,1 9 



2 

t rem 

71 

40000 

REM ERRORI DISCO 

: rem 

29 

40001 

REM” [< 12 U>j 

: rem 

155 

4001 0 

INPUT# 1 5,EQ,E1$,E2,E3$ 

: rem 

224 

40020 

ifbo=othenreturn 

t rem 

1 1 8 

40030 

GOSU B300 0 ; PRINTSDS" ( 2 

GIU 1 }"El 3 
: rem 

188 


4004 0 FQRPP= 1 TOl 000 : NEXT : GOSU B30 0 0 : RETURN 

; rem 97 

50 0 00 rem** ********************* ; rem 159 

50001 ; : rem 48 

50002 REM* *MUS ICA INTRODUTTIVA ** 

trem 242 

50003 : trem 50 

50004 REM***** * ****************** 


treni 205 

5000 5 READM: FORICI TOM trem 43 

50006 READN (I) , P{I) : NEXT : GOSUB50 300 : GOTO 1 

200 : rem 118 

50009 DATA 103 trem 772 

50010 DATAI 2,2 ,8 ,2, 1 0,2 ,1 2,2,15,2,13,2,13 

,2,17,2,15,2,15,2 trem 9 

5001 ì DATA20, 2,7 9,2, 2 0,2,1 5, 2, 1 2, 2,8, 2 ,7 0 
,2,12,2,13,2,15,2 «rem 6 

5007 2 DATAI 7,2,15,2,13,2,12,2,10,2,12,2,8 
,2,7,2,8,2,10,2 trem 171 

5001 3 DATA3,2,7,2, 10,2,1 3,2,12,2,10,2,12, 

2.8.2.10.2.12.2 : rem 1 57 

5007 4 DATAI 5,2,7 3,2,1 3,2,17,2,1 5,2, 1 5,2,2 

0,2,19,2,20,2,15,2 trem 66 

5001 5 DATAI 2,2,8,2,10, 2,1 2,2,5,2,15,2,1 3, 

2.12.2.10.2.8.2 trem 167 

5001 6 DATA3 ,2,8,2,7,2,8,2,12,2,15,2,20,2, 

15.2.12.2.8.2 : rem 84 

5007 7 DATAI 2,2,1 5,2,1 8,2,1 5,2,1 2,2,8,2,12 

,2,15,2,17,2,13,2 trem 23 

5001 8 DATAI 0, 2,7,2,10,2,1 3,2,1 5,2,1 2,2,8, 

2.5.2.8.2.12.2 : rem 126 

5001 9 DATAI 3,2,10,2,7,2,3,2,7,2,10,2,1 3,2 

,12,2,10,2,8,2 trem 120 

50020 DATAI 2,2,1 5,2,20,0,0,0,0,0,0,0,0,0, 
0,0, 0,0,0, 0 t rem 1 80 

50300 PRINT" {HOME} { 22 GIU ' } " SPC { 1 2 ) M * * * * 
{ 2 SPAZI } J O Y{ 3 SPAZI}****” 

: rem 1 1 4 

50301 REM MODIFICA QUI SOPRA IL NOME DEL 

BRANO E PREMI 1 RETURN 1 , QUINDI SALV 
A trem 245 

50400 RETURN 2T7 

60000 REM TUTTE LE VOCI : rem 50 

60001 REM" (< 18 U>] :rem 237 


trem 245 
trem 277 
: rem 50 
trem 237 


FORVV- 0TO2 ; POKES ID + + 4 +1 * VV , WV ( W ) -1 



t NEXT t VV=0 

: rem 

21 9 

60010 

FORPP = 7 TO80*REt NEXT: RETURN trem 

75 

60100 

REM VOCE PRECEDENTE 

t rem 

231 

60101 

REM" [ < 22 U>] 

t rem 

206 

601 1 0 

POKESI D + 4 + 7*PV , WV ( PV) - 1 

; rem 

798 

60130 

RETURN 

: rem 

21 8 

60200 

REM STOP S1D 

: rem 

2 

60201 

REM" i < 8 U>1 

: rem 

191 

6021 0 

FQRPP-QT02 ; POKESID+4+7* 

PP , 0 t NEXT t W 


= 0 : RETURN 

t rem 

247 

63900 

GOSUB30 0 0 t PRI NTSD $ ; :DR$ 

=”0" : GOSUB30 


00: B" 30 : AN = 1 

t rem 

719 

63901 

PRINTSD$" BRAN I PRESENTI 

SUL DISCO: 11 



: rem 

5 

63902 

OPEN7 5,8,15 

: rem 

7 46 

63904 

OPEN2 , 8, 0, "S"+DR$+": * = S 

11 trem 

6 

63905 

GET# 2 , A3 t GET # 2 , A3 t IS = " 11 

: rem 

245 


63906 GETB$ : I FSTO 0ORB$ < > n " THEN6 3 9 1 8 

trem 103 

63907 FORACI TOBtGET#2, A$ trem 132 

63908 IFA$' 1,,, THENA$=CHR$ (0) trem 210 

63909 I3“I$ + A$ : NEXT t I FAN - 1 THEN6 3 9 1 5 

trem 40 

63910 PRINTSD$"{ 2 GIU 1 } { 37 SPAZI }": PF=7 

trem 255 

6391 1 U 7 $ -MID5 (I$,PP,7 9) : 1 FLEFT$ (U 1 3 , 7 ) <> 
CHR5 ( 34 ) THENPP = PP+ 7 ; I FPP< 7 9THEN6 3 9 1 
1 trem 246 

6391 2 IFPP>! 9THEN6397 6 trem 20 

6391 4 IFMIDS (Ul $, 2, 1 ) =" " THENPRI NTSD$ " 

{ 2 GIU* } " U 1 $ trem 82 

6391 5 FORI 1 = 7 TO 1 0 1 1 2 = TAN (Il i : NEXT 

trem 244 

6391 6 AN = 0 : 1 $ = M M t B= 3 2 t GOTO 63 906 trem 198 
63918 CLOSE2:CLOSEl 5 t RETURN trem 227 


80 51JP£ RCOM MODORET^ fi/85 




tnpufroutput 


Vendo supet e spander per VIC 20 ag 
^u-nge 3 Ki^RAMr 15 nuovi cornati 
ds Camb» software pòi VIC mespan 
so Stefano Succi Via Malleolo. 41 
47030 Botgh.- lBO> Tel CMS! 939077 

Vendo e cambiti foni issimi splendidi 
programmi (circa 400) su disco e thè 
sito Ftezzi stracciatissimi Cerco 
corri modot isti iC<j 4| per scambio liste e 
software Roberto Palloni Via Audi 
not . 35 40 ì 33 Bologna Td OSI 421 95 

Vendo VlC 20 come nuovo. campJeTO 
dì cavetti cd alimentatore. registratore 
dedicato con numerosissimi program 
mi su cassette e su listati. libro 46 prc^ 
grammi vari Prezzo da concordare 
Sergio Cascig Vsa Domodossola, 2 ì 
20145 M dami T«| 3491 122 

Vendo giochi, utility. linguaggi (Si 
moni’) di altissimo livello pei C64 a 
prezzi concorrenziali Permuin con 
FORTH e Pascal Telefonale dopo le 
2000 Michele Persiani Via Villa Me 
lose,9 90146 Palermo Tel 253801 

Vendo per CBM 64 ^ochi ed utility- su 
casseri a a L 1 500 cadauno. Per richie- 
dere fa Ima telefonare dalle 14 alle 15 a 
Si- 1 iimm Caputemi Via Firenze. 2 
67059 Trabocco CAQ I Tel 0863 93237 

Vendo e cambio giochi i- programmi di 
utilità sprotetii per CBM 64 Se miete» 
tòti rarhiedete bina Sono dKpos.ro a 
cedere p«ù é> 100 program» per un 
pioiiet per C*4 Nicola Rouletti V« 
dei bmom, ?7 00172 Roma Tei 

06 im** 

Vendo programmi per C64 m tmguag 
go macchina a sfilo L 4 000 cadauno 
Tefotonoft a Pasquale Dei Pezzo Via 
F.S Cmz». 29 84012 Angn (SA) 

Vendo feelfos*™ giochi pei C64 SOgio 
chi su c assenta con Turbo Tape a L 
8000 Telefonate m-i pomeriggio di lu- 
nedi mercoledì giovedì Stefano Bo 
Ima* ViaStiu-UMlk-r, t 20139 Milano 
Tel 02 562231 

Vendo i più bei giochi per C64 Fole 
PosiUon (Alari», Dig Dug (Alari), De 
taihfoTi (Acirvivioró, Pn 1*11 11 (Adivi 
sion). Popi-yv (Parker), Gyiuss (Par 
kerj. Krogyer , Zaxsou e unti «lin e n tu 
stasmanii videogame'. Giuseppe Ma/ 
zanii V:a San Salvo ter e, 29 72024 
OnA (BRI Tel 945247 

Vendo e camino programmi su disco e 
Cassou a pei C64 Sono in possesso di 
giochi parlami, word processor prole» 
sinmli, tante utility e giochi pur tutu t 
gusti Invio 5«ie a tulli Vendo in tu ila 
Italia AntongiuIiO Pruni VcaPosilitpo. 
69 9 00123 Napoli Td 06 1 7695397 


Veneto per VlC 3CM cartucce Gorf L 
40000, Cosane Cruncher L 40000 
Moto Atta* k L 40 000. Saigon II Che*» 
L 40000 In blocco! 150 000 Te^fn 
nare dalle 14 30 aito 15 30Fob*> Feraz 
za Via Roma . 12 20050 Pomt^ < NQ » 
Tel 0321 956246 


Svendo (causa passaggio a sistema su 
per io re» luti» i miei videogame* per 
CBM 64. interamente tn LM e di ottima 
qualità alitare ezxmale prezzo di L, 
1 000 cadauno Inoltre posseggo giochi 
ottonai Commodore 64 lì. 6.000). Ac 
quistn minimo di L 2G000. in regalo 
1 urini Tape Per informatori! rivolger 
si a Giacomo Brighino ViaBouganvil- 
toa, 8 950'U Caltjqirune fCT) Tel 
0933 25877 991342 


Sono interessalo a scambi, acquisti e 
rendile di programmi per C64. Scrive 
te o teScloruiH’ a: Alessandro Cufltin ■ 
Vr.i Berlam. 3 34136 Trieste Tel. 

040 43280 

Vendo VlC 20 più registratore. 4 utvity. 
55 giochi favolosi, manuale in italiano. 

h e listati van li tutto m ottime 
condì /«mi a L . 240 000 lek 1 ! < i At re a , 
pomeri i&io Enea hi ver ruzzi Via Ma- 
teoin. 5 Cavana de Pecchi (MI) Tel 
02 9528106 


Stifo carneo (non vendo) di giochi ed 
uiilriy per C64, lesta eh oltre 200 1 rto!i su 
cassetta si Turbo Tape Scnuere a 
Renzo Sor im- Via Pisana. 46 5Q01S 
Se onde et (FI) Tel 754601 

Cambo piuiTéf «filmate Crimmodore 
1520 i ompVsci di perme. roto) caria. 

1 e h i . ^ con stampante MJPSSOÌ ó 803 
pii posto a ne he ò conguaglio G *M*a ora 
Peirone V a Don Lorenzo Milani, 7 
50038 Scorpena (Fll 

Regafo 100 giochi per VIC 20 a eh mi 
procura t numeri arretrati da UT al 6 
della nvpta Compuiei Club Luciano 
Lucchetti Vm Oberdan. 8 17027 P=e 
Tr a Ligu i e 1SV) Tel 019 5 44024 

Cambio programirii su disco (Missione 
Impossibile, Raid Over Mo*C0W, ecc. I, 
Circa i 00O programmi Cerco utilizza 
tori «fi modem 1200 taud Flavio Ber 
nardoin V -a Trento, 10 ì5040Mnn:e 
castello (At.l 

Per C64 po*s^o circa 150 giochi tra 
cui. Foie Positjon. Decaihlone il tàvolo 
» Tot bv Tape e fami ssirru alt ri Scrive 
te o tefolonate a Emaurè Silwìtn 
Pazza Malate»» a, 2 47040 VVt occhio 
i FO» Tei 0541 668040 

Compro, vendo, cambio iohwar* per 
C64 I rmghoti programmi a sole L, 
1 000 cadauno Sconto per quantità 
Dispongo di Turbo. Cale» Basket, 
la? /an. FI. Pat Man. ecc Vincenzo 
Petrnne Via Umberlo I. 26 65010 

Anz. <P2) I ti 0971 %2019 


Cambio per VlC 205C | glOichliucds»4 , ! 
ta Cambiti solo :nptm ine kid A-esSim 
dna Massimo Boi foto Via TKinrio 
15062 Bosco Marengo -i Al Te 
759398 

Vendo VJC 20 perfetto p.ù registrato 
re. espansione da 3 8 tÀKIqfì», SOpc» 
chi vali, 2 cartridge. 1 kbiu di listali. 1 
libi o ci B ASIC Rom «o Ber lato Via G 
Marconi, 83 36035 Mimno (VI» Tk-I 
0145 622002 

Ciimb’ri fwogr anvmr per C64 Inviate te 
vostie Itile a Nunzio Peligiti Via G 
Cantore. 24 ^TOISCumiscitRGJ Tel. 
%559S 

Vendo VlC 20 più tvdcJli-^, mystu. k, 3 
cassette gocu a L 20 000 l'uivi, il turili 
al, 225-000. RsccardoFulcal- Vw Rn 
ma. 30 830^ Gesualdo fAV» Tpl 
401028 

Vendo software Sergio Biasini! Via 
delle Terme, 23 80077 Ischia Porto 
INA» 

OvuiionissiiTuf Vendesi VlC 20 più 

regi stratotè, joystick e orniti giochi ed 
uitlisy iu cassetta a L 200 000 Piego gk 
m tv fessati d. Scr ivere o rck-lonare a: 
Marce! Io Lo Tararlo Vv& Luigi Fantom, 
K? 37069 Vibrane a (VR) Tri 
(K5 793491 

AùefUKjfìe I team CBM 64 vende» 
scambia program tra « cerca scici, Per 
TfrtcwTTviziGJi! telefonate o scnuere a 
Luigi Pr metti Via Di Vitttìr o, 7 29I00 
Piacenza Tel 0523 60408 

Vendo super vdeogiochu- programmi 
di uniity a pie ir da fan.- ola Chiedetemi 
la lata e vedrete' Fate presto luca 
Garnbenm Via TcìSeta, 8 40133 Bolo 
gru Tei 051 569958 

Eccezionale! Vendo per 4 CBM 64 25 
vrifeogipc hi su c aswi la a l .10 000 So 
no i miqJion sul mrrcatù Cateto, B.is 
ktri . Super PipeiBie, One On Onv Spy, 
Decathlon, Le Mar-v Ai/fi S<iui 
shVm. ctc Telefonare ore Giu 

seppe De Vivo VuiNapuk 167 71016 
San SeverA (FCri Te! ù882 7391 1 

Vendo, cambio software per VlC 20, 
Inoltre vendo cartuccia H Advenlure 
and" ad un prezzo speciale solo L 
25 000 Stefano Cumini Vu Albucttù 
22 21049 Tradate (VA) Tel 845754 

Conoscerei m Siigli» uteutt di 
pnticiptanti e non per imparare insieme 
fuso det computer e i programmi Lo 
ren/o Reggjom - Via Biancumi, 2 40137 
Bdogpa Tel 051 342665 

Compro, vendo, cambio software pt r 
CM su disco con manca i Easy Script, 
Stmons BASIC, Sfat 64, Ingegneria 
Capurso. Smfofd, The 1 Manager, ecc 
ongoaii Disponga di altri programmi 
senza manuali Regolo software giochi 
in cambio dr manuali Inviare THenco 
dei programmi, rispondo a tutti Aie» 
sandniSciKitars VtaCandflsto 28 2 
71 ICO Foga* Tel 0881 4Ù5Ì4 


Vendo o cambio grochi per VIC 20 m 
espanso Casseiia fa nw carneo) con 5 
aochi L 6 000 Roberto Paotmi Via I 
Maggso. 6 52040 Tetoradà rARj Td 
67208 

Vendo oltre 350 pr ngru mim ttetaons 
l»vu cassetta per Commodore 64 Prez 
zi mndicessmu, richedèie la fora o in 
viate la propria ncr io scambru Rt»bei 
loBorrelh ViaPanoiamica. 3) 60100 
Ani cm„t Tel 07 ) 56512 

Cambm carruccia ’Dcfeoder" con 
qualsia!»» Advenfure AnnuiKiOM-mprc 
valido Luigi Russo Via Rumendova, 
33 48100 Ravenna 

Vendo VIC 20 più li manuale di grafica 
r ridi menziona! v. 3 libo giochi, 6 c ossei 
re di “Program", I manuale rii BA 
SIC", I cassetta di "Pb^ames’*, 3 iì\± 
sene di veri pro&Vmmi: il tur tu. prati 

1 an;e n te nuovo, asole L lOOOOOfvafo 
re reale L 260 000) Andrea Amdr esani 
Vw Gregorio Xlll, 14 000167 Roirkr 
Tel 06 6212578 

Vàrtdo per C64, su cassetta, oltre 50 
vtuptndi giochi Ira cui Mo odiai Soccer . 
Zac Min. Fole Pùsrnon. Fori ApucaEip 
si , [Vfendct . Di-c ai h fon, t-<t T uti i m 
Turbo Tapn-, | 10 000 m bfoceo. Pc-r 

mfot mozioni o fola rdefonate o sctiuc 
re a Sergio D FAppo Via Rictildt3 
64I0O Teramo Te! 0861 51977 

Cambio, vendo, compro programmi 
per C 64 Inviale le vostre fole Rtspon 
do a tutti 1 Telefonare rUW 18 O0 alle 
20 30 Gtanm Col tom Vt* Sframbno. 
23 10010 Cartone iTGl Tel 

ommu 

Per Commodore 64 vendo oltre 500 
programmi giochi, utilità vàrie, gestiti 
tu:; novità da’Slnghikerra a L ! 500 
cadauno Manco Saggese Via Ugo 
liKhioitn, 89 00143 Roma Td. 

06 5030534 

Vendo MC 20 più i^|V.irKuìiwda 3 8 16 
Kbyte RAM. 8 gxxhi su nastro. 2 car 
Ha t e .si prezzi i di I. 500.000 trattabili 
Telefonare ore pasti Salvatore dot urti* 
Vw Cariarti, 5 2210O Como 1 *-] 
m 240148 

Vendo VIC 20COO periferiche e ifoftwa 
re Massimiliano Faùill Via Livornese 
&5t, 9 56030 Betonano fP1( Te), 

610069 

Vendo e cambw programmi ette zio 
nah a prezzi etceziótufi per C64 Tele 
fonare per credere! Fossilmente (rat 
tu con residenti m Mifanu Alberto La 
Villa V: a A fugarmi. 74 20)47 Milano 
Tel 02 4150187 

Venda cassetta con Sunons' BASIC. 

1 14 comandi m più sui quali lavorare e 
pacare sul tuo CBM 64 a sole L 
500T-0 Luca KcSeifaio Vm dei L&L 
53 20089 Ro r/m (MI) Td 

02 82SI9O7 

Vendo. lamNo rarwerta "Adverituie 
Ear«r , ui f-m* coodw vn t Rx cardo Me 
tace- Vm Noma hard*. 36 58022 
Folloni .i iGR’ T*4 42747 


SUPtRCOM « O DORÈ* 5 8/85 81 


$0. s .^aoaowKCOiraJiìs ■ z% 


^ io 

1- OJ 


s 

o 

¥ 

< 

3 


ifj 

o 

O 

< 


,1 s 


£ 

(0 

■- ffì 

?e. 

CL O ’ 

,_-o 
1 Ó O 


5 o 
c o 


oc 

co 


3 ? 

! gli 

! w is 

!is; 


US 


3sS ° 

351* 

a=l!c 

I u 3-i 





E 


□ 

i 

■ 






V 



naturalmente. 


I tascabili Jackson sono imo 
strumento prezzo per chi lavora 
con il computer 

SINCLAIR SPECTRUM coti 017H 
Vie 20 cod 005H 
COMMODORE 64 cod 002H 
PC IBM cód 016H 
APPLE Ut COd Q03H 
SHARP MZ80A cod, 014H 
LA PROGRAMMAZIONE COd 004H 
WORD STAR COd. OQBH 
UNIX cod 009H 
LOGO cod 020H 
MS DOS cori 019H 
PROGRAMMI 01 STATISTICA cod 
D15H 

CPM cod. 01 IH 
PC DOS cod, 01ZH 


BASIC cod. 00 7 H 
ASSEMBLER Z80 cod. Q16H 
ASSEMBLER 6502 cod. Q13H 
COBOL cod. 001 H 
FORTRAN 77 cod 01 OH 
PASCAL cOd.QOSH 
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EDITORIALI 

JACKSON 



Ritorna in edicola ■ ■ ^ 

BASIC ; 

Il corso più entusiasmante su cassetta 
del Gruppo Editoriale Jackson per Commodore 64, 

VIC 20 e Spectrum I 

200.000 copie vendute | 

del 1 D fascicolo dello primo edizione 



Oggi è davvero facile imparare il 
Basic. Con Video Basic il corso su 
cassetta che ti permette dì 
rag r ammara subito il tuo computer 
facile: tu chiedi, lui risponde, 
tu impari. Passo dopo passo, 

Sul tuo schermo appaiono le 
domande, le risposte, gli esercizi e 


tu, senza fatica, presto e bene, 
impari a conoscere 
e programmare il tuo computer, sia 
esso un VIC 20, un Commodore 64 o 
un Sinclair. 

Video Basic è in edicola. 

Provalo subito. 

Ogni lezione è uno spettacolo. 


Oggi il Basic si impara così. 

Video Basic, il corso su cassetta per 
parlare subito col tuo computer. 

Video Basic 

per imparare non solo il Basic. 



Un altra grande idea firmata 

GRUPPO EDITORIALE JACKSON 

Milano *San Franàsco-Londra -Madrid 











